diff options
Diffstat (limited to '020/ch1.pl')
-rwxr-xr-x | 020/ch1.pl | 2 |
1 files changed, 1 insertions, 1 deletions
@@ -11,5 +11,5 @@ use warnings; my $str = shift; my @chunks; -push @chunks, $1 while ($str =~ /\G((.)\2*)/g); +push @chunks, $1 while $str =~ /((.)\2*)/g; print "@chunks\n"; |