diff options
| -rw-r--r-- | challenge-280/kjetillll/perl/ch-2.pl | 3 |
1 files changed, 2 insertions, 1 deletions
diff --git a/challenge-280/kjetillll/perl/ch-2.pl b/challenge-280/kjetillll/perl/ch-2.pl index 904a03eb3f..afc5b87f93 100644 --- a/challenge-280/kjetillll/perl/ch-2.pl +++ b/challenge-280/kjetillll/perl/ch-2.pl @@ -2,7 +2,8 @@ use strict; use warnings; use Test::More tests=>3; sub count { local $_ = shift; - s/ \| .*? \| //x ? count($_) : y/*// + s/ \| .*? \| //xg; + y/*// } is count( $$_{input} ) => $$_{output} |