[020#1] Second try

1 files changed, 4 insertions, 2 deletions

diff --git a/020/ch1.pl b/020/ch1.pl
index ede090e..6d8140d 100755
--- a/020/ch1.pl
+++ b/020/ch1.pl
@@ -8,6 +8,8 @@
 use strict;
 use warnings;
 
-use 5.13.2;
+my $str = shift;
 
-print substr(shift =~ s/((.)\g2*)/$1 /gr, 0, -1), "\n";
+my @chunks;
+push @chunks, $1 while ($str =~ /\G((.)\2*)/g);
+print "@chunks\n";