diff options
| author | Abigail <abigail@abigail.be> | 2020-10-21 14:14:13 +0200 |
|---|---|---|
| committer | Abigail <abigail@abigail.be> | 2020-10-21 14:14:13 +0200 |
| commit | 2fe391ea25e3afcb90aaf3b1729d83edef95d365 (patch) | |
| tree | f42897781e8f9dfded9052895299a1fcbd27cf73 /challenge-083/abigail/perl | |
| parent | a27665828a9bdf2c94e6ae35e4de74dd21aa72e0 (diff) | |
| download | perlweeklychallenge-club-2fe391ea25e3afcb90aaf3b1729d83edef95d365.tar.gz perlweeklychallenge-club-2fe391ea25e3afcb90aaf3b1729d83edef95d365.tar.bz2 perlweeklychallenge-club-2fe391ea25e3afcb90aaf3b1729d83edef95d365.zip | |
Save a few bytes.
Diffstat (limited to 'challenge-083/abigail/perl')
| -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; } |