From b4e39f8ae34ecbe23d2b041497c81c895345d042 Mon Sep 17 00:00:00 2001
From: Mohammad S Anwar <mohammad.anwar@yahoo.com>
Date: Mon, 3 Oct 2022 19:59:29 +0100
Subject: - Added solution by Kueppo Wesley.

---
 challenge-185/kueppo-wesley/Perl/ch-1.pl | 14 --------------
 challenge-185/kueppo-wesley/perl/ch-1.pl | 14 ++++++++++++++
 2 files changed, 14 insertions(+), 14 deletions(-)
 delete mode 100644 challenge-185/kueppo-wesley/Perl/ch-1.pl
 create mode 100644 challenge-185/kueppo-wesley/perl/ch-1.pl

(limited to 'challenge-185')

diff --git a/challenge-185/kueppo-wesley/Perl/ch-1.pl b/challenge-185/kueppo-wesley/Perl/ch-1.pl
deleted file mode 100644
index 0fabbf7099..0000000000
--- a/challenge-185/kueppo-wesley/Perl/ch-1.pl
+++ /dev/null
@@ -1,14 +0,0 @@
-#!/usr/bin/env perl
-
-use strict;
-use warnings;
-
-use Test::More;
-
-my ( @macs, @result ) = qw(1ac2.34f0.b1c2 abc1.20f1.345a);
-
-push @result, tr/.//dr =~ s/(..)(?!$)/$1:/gr foreach @macs;
-
-is_deeply( [ @result ], [ qw(1a:c2:34:f0:b1:c2 ab:c1:20:f1:34:5a) ], "Properly converted mac addresses" );
-
-done_testing( 1 );
diff --git a/challenge-185/kueppo-wesley/perl/ch-1.pl b/challenge-185/kueppo-wesley/perl/ch-1.pl
new file mode 100644
index 0000000000..0fabbf7099
--- /dev/null
+++ b/challenge-185/kueppo-wesley/perl/ch-1.pl
@@ -0,0 +1,14 @@
+#!/usr/bin/env perl
+
+use strict;
+use warnings;
+
+use Test::More;
+
+my ( @macs, @result ) = qw(1ac2.34f0.b1c2 abc1.20f1.345a);
+
+push @result, tr/.//dr =~ s/(..)(?!$)/$1:/gr foreach @macs;
+
+is_deeply( [ @result ], [ qw(1a:c2:34:f0:b1:c2 ab:c1:20:f1:34:5a) ], "Properly converted mac addresses" );
+
+done_testing( 1 );
-- 
cgit