diff options
| -rw-r--r-- | challenge-282/kjetillll/perl/ch-1.pl | 2 |
1 files changed, 1 insertions, 1 deletions
diff --git a/challenge-282/kjetillll/perl/ch-1.pl b/challenge-282/kjetillll/perl/ch-1.pl index 34665cf223..2e08eac145 100644 --- a/challenge-282/kjetillll/perl/ch-1.pl +++ b/challenge-282/kjetillll/perl/ch-1.pl @@ -1,7 +1,7 @@ use strict; use warnings; use Test::More tests=>3; sub good_int { - shift =~ s/(.)\1*/$& /gr =~ /\b\d{3}\b/x ? $& : -1 + shift =~ s/(.)\1*/$& /gr =~ /\b\d{3}\b/ ? $& : -1 } is good_int(12344456) => "444"; |