From 1e4f18c8552dec891946162593a2bd451f8ca30b Mon Sep 17 00:00:00 2001
From: Abigail <abigail@abigail.be>
Date: Sat, 26 Jun 2021 20:00:58 +0200
Subject: Swap clauses in pattern

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

diff --git a/challenge-118/abigail/perl/ch-1.pl b/challenge-118/abigail/perl/ch-1.pl
index 99df6f0f65..51892d3f65 100644
--- a/challenge-118/abigail/perl/ch-1.pl
+++ b/challenge-118/abigail/perl/ch-1.pl
@@ -23,4 +23,4 @@ use experimental 'lexical_subs';
 # using a pattern turns it into a one liner.
 #
 
-say sprintf ("%b" => $_) =~ /^(([01])(?1)\g{2}|[01]?)$/ || 0 while <>;
+say sprintf ("%b" => $_) =~ /^([01]?|([01])(?1)\g{2})$/ || 0 while <>;
-- 
cgit