From 419c486986fca4a789e57e06f7064ff2f213d79f Mon Sep 17 00:00:00 2001 From: k-mx Date: Thu, 2 May 2019 15:31:38 +0500 Subject: extra spaces for re --- challenge-006/maxim-kolodyazhny/perl5/ch-1.pl | 6 +++--- 1 file 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) -- cgit