From 2fe391ea25e3afcb90aaf3b1729d83edef95d365 Mon Sep 17 00:00:00 2001
From: Abigail <abigail@abigail.be>
Date: Wed, 21 Oct 2020 14:14:13 +0200
Subject: Save a few bytes.

---
 challenge-083/abigail/perl/ch-1.pl | 2 +-
 1 file changed, 1 insertion(+), 1 deletion(-)

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;
 }
-- 
cgit