diff options
| -rwxr-xr-x | challenge-184/perlboy1967/perl/ch-1.pl | 2 |
1 files changed, 1 insertions, 1 deletions
diff --git a/challenge-184/perlboy1967/perl/ch-1.pl b/challenge-184/perlboy1967/perl/ch-1.pl index a7b3462ea9..220d323dcf 100755 --- a/challenge-184/perlboy1967/perl/ch-1.pl +++ b/challenge-184/perlboy1967/perl/ch-1.pl @@ -27,7 +27,7 @@ use Test::Deep qw(cmp_deeply); sub seqNr (@) { my ($i,@s) = (0,@_); - map { s/^..(.*)/sprintf("%02d$1",$i++)/re; } @s; + map { s/^../sprintf('%02d',$i++)/re; } @s; } |