From 236f2b4974f6b87d429a3f8315b710a4543c14c0 Mon Sep 17 00:00:00 2001
From: Niels van Dijke <65567640+PerlBoy1967@users.noreply.github.com>
Date: Tue, 4 Oct 2022 11:02:45 +0200
Subject: Even wackier solution for task 1

---
 challenge-185/perlboy1967/perl/ch-1.pl | 3 +--
 1 file changed, 1 insertion(+), 2 deletions(-)

diff --git a/challenge-185/perlboy1967/perl/ch-1.pl b/challenge-185/perlboy1967/perl/ch-1.pl
index 145efb72ad..89bb6d33f7 100755
--- a/challenge-185/perlboy1967/perl/ch-1.pl
+++ b/challenge-185/perlboy1967/perl/ch-1.pl
@@ -24,8 +24,7 @@ use Test::More;
 
 sub macFormat ($) {
   state $re = join '\.', ('([0-9a-f]{2})' x 2) x 3;
-  return join(':',$1,$2,$3,$4,$5,$6)
-    if ($_[0] =~ /(?i)^$re$/o);
+  join ':',($_[0] =~ /(?i)^$re$/go);
 }
 
 
-- 
cgit