From da559bb53d8c4d3b46bb7c9f8679f00b9b529c6f Mon Sep 17 00:00:00 2001 From: Guillermo Ramos Date: Tue, 6 Aug 2019 14:51:56 +0200 Subject: [020#1] Trimmed --- 020/ch1.pl | 2 +- 1 file changed, 1 insertion(+), 1 deletion(-) (limited to '020') diff --git a/020/ch1.pl b/020/ch1.pl index 6d8140d..0240d6a 100755 --- a/020/ch1.pl +++ b/020/ch1.pl @@ -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"; -- cgit v1.2.3