From 107ac6f42f514b028797bfd00e513714e2d34e7a Mon Sep 17 00:00:00 2001
From: Dave Cross <dave@dave.org.uk>
Date: Mon, 3 Oct 2022 11:04:24 +0100
Subject: Challenge #185

---
 challenge-185/dave-cross/perl/ch-1.pl | 14 ++++++++++++++
 challenge-185/dave-cross/perl/ch-2.pl | 20 ++++++++++++++++++++
 2 files changed, 34 insertions(+)
 create mode 100644 challenge-185/dave-cross/perl/ch-1.pl
 create mode 100644 challenge-185/dave-cross/perl/ch-2.pl

diff --git a/challenge-185/dave-cross/perl/ch-1.pl b/challenge-185/dave-cross/perl/ch-1.pl
new file mode 100644
index 0000000000..ce3b004799
--- /dev/null
+++ b/challenge-185/dave-cross/perl/ch-1.pl
@@ -0,0 +1,14 @@
+#!/usr/bin/perl
+
+use strict;
+use warnings;
+use feature 'say';
+
+my $in = shift;
+
+my $hex_re = qr/[a-f0-9]/i;
+
+die "$in is not a valid MAC address\n"
+  unless $in =~ /^$hex_re{4}\.$hex_re{4}\.$hex_re{4}$/;
+
+say join ':', $in =~ /($hex_re{2})/g;
diff --git a/challenge-185/dave-cross/perl/ch-2.pl b/challenge-185/dave-cross/perl/ch-2.pl
new file mode 100644
index 0000000000..f2aab1003b
--- /dev/null
+++ b/challenge-185/dave-cross/perl/ch-2.pl
@@ -0,0 +1,20 @@
+#!/usr/bin/perl
+
+use strict;
+use warnings;
+use feature 'say';
+
+for my $in (@ARGV) {
+  my $x = 0;
+
+  for (0 .. length($in) - 1) {
+    if (substr($in, $_, 1) =~ /[a-z0-9]/) {
+      substr $in, $_, 1, 'x';
+      ++$x;
+    }
+
+    last if $x == 4;
+  }
+
+  say $in;
+}
-- 
cgit