diff options
| -rw-r--r-- | challenge-006/maxim-kolodyazhny/perl5/ch-1.pl | 6 |
1 files changed, 3 insertions, 3 deletions
diff --git a/challenge-006/maxim-kolodyazhny/perl5/ch-1.pl b/challenge-006/maxim-kolodyazhny/perl5/ch-1.pl index 5ac290fdd0..4ccfcc64a3 100644 --- a/challenge-006/maxim-kolodyazhny/perl5/ch-1.pl +++ b/challenge-006/maxim-kolodyazhny/perl5/ch-1.pl @@ -6,9 +6,9 @@ use 5.028.1; use List::Util qw(sum); s{ - (\b \d+) - (,?\d+,)+ - (\d+ \b) + ( \b \d+ ) + ( ,? \d+ , )+ + ( \d+ \b ) (??{ # this block is treated as a pattern # != will return '' (always match) or 1 (fail because of previous \b) |