diff options
| -rwxr-xr-x | challenge-082/perlboy1967/perl/ch-2.pl | 4 |
1 files changed, 1 insertions, 3 deletions
diff --git a/challenge-082/perlboy1967/perl/ch-2.pl b/challenge-082/perlboy1967/perl/ch-2.pl index e2756ba3f2..483f020e10 100755 --- a/challenge-082/perlboy1967/perl/ch-2.pl +++ b/challenge-082/perlboy1967/perl/ch-2.pl @@ -10,8 +10,6 @@ use strict; use warnings; -use Data::Printer; - @ARGV = qw(4X 123X678 1234XX678) unless (scalar @ARGV >= 3); @@ -20,7 +18,7 @@ my ($A, $B, $C) = @ARGV; my $res = 'NONE'; if (length($A) + length($B) == length($C) and - $C =~ m#^((?<A1>.*?)$B(?<A2>.*)|(?<B1>.*?)$A(?<B2>.*))$#gc) { + $C =~ m#^((?<A1>.*?)$B(?<A2>.*)|(?<B1>.*?)$A(?<B2>.*))$#) { if (($+{A1} // '').($+{A2} // '') eq $A) { $res = "$+{A1}|$B|$+{A2}"; } elsif (($+{B1} // '').($+{B2} // '') eq $B) { |