From be04c0defecbe3f12698c536c3bda30442ea21c8 Mon Sep 17 00:00:00 2001
From: Branislav Zahradník <happy.barney@gmail.com>
Date: Tue, 4 Oct 2022 19:52:42 +0200
Subject: Challenge 185 - happy-barney - alternative solution of mask-code

---
 challenge-185/happy-barney/perl/ch-2-split.pl | 14 ++++++++++++++
 1 file changed, 14 insertions(+)
 create mode 100644 challenge-185/happy-barney/perl/ch-2-split.pl

diff --git a/challenge-185/happy-barney/perl/ch-2-split.pl b/challenge-185/happy-barney/perl/ch-2-split.pl
new file mode 100644
index 0000000000..d3d8c846a1
--- /dev/null
+++ b/challenge-185/happy-barney/perl/ch-2-split.pl
@@ -0,0 +1,14 @@
+#!/usr/bin/env perl
+
+use strict;
+use warnings;
+
+sub challenge_185_2 {
+	my (@codes) = @_;
+
+	my $count = 4;
+	my $mask = 'x';
+
+	map { join 'x', split qr/[a-z0-9]/, $_, 4 +1 } @codes;
+}
+
-- 
cgit