[020#1] MAXIMUM TRIMMING

1 files changed, 1 insertions, 3 deletions

diff --git a/020/ch1.pl b/020/ch1.pl
index 0240d6a..8022fb9 100755
--- a/020/ch1.pl
+++ b/020/ch1.pl
@@ -8,8 +8,6 @@
 use strict;
 use warnings;
 
-my $str = shift;
-
 my @chunks;
-push @chunks, $1 while $str =~ /((.)\2*)/g;
+push @chunks, $& while $ARGV[0] =~ /(.)\1*/g;
 print "@chunks\n";