diff options
author | Guillermo Ramos | 2019-08-06 14:51:56 +0200 |
---|---|---|
committer | Guillermo Ramos | 2019-08-06 14:51:56 +0200 |
commit | da559bb53d8c4d3b46bb7c9f8679f00b9b529c6f (patch) | |
tree | e428db770a9abe00910df9353b37eb8565ebc8cb /020 | |
parent | 15c6b0541a233e593b1870a188a6e06900f5e074 (diff) | |
download | perlweekly-da559bb53d8c4d3b46bb7c9f8679f00b9b529c6f.tar.gz |
[020#1] Trimmed
Diffstat (limited to '020')
-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"; |