diff options
| -rw-r--r-- | challenge-083/abigail/perl/ch-1.pl | 2 |
1 files changed, 1 insertions, 1 deletions
diff --git a/challenge-083/abigail/perl/ch-1.pl b/challenge-083/abigail/perl/ch-1.pl index 3aae166d12..6d72698d93 100644 --- a/challenge-083/abigail/perl/ch-1.pl +++ b/challenge-083/abigail/perl/ch-1.pl @@ -77,7 +77,7 @@ my $word = while (<>) { chomp; s/$word//; - s/$word(?=\P{l}*$)//; + s/$word(?=\PL*$)//; s/\s+//g; say length; } |