Merge pull request #6836 from tcheukueppo/kueppo-pwc-185-ch1

kueppo pwc-185 ch-1.pl

1 files changed, 14 insertions, 0 deletions

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 );