From 7ecbfb1c3681b5ba5c2a0cb8b8fa67b058954df1 Mon Sep 17 00:00:00 2001
From: Dave Cross <d.cross@fairfx.com>
Date: Tue, 8 Oct 2019 14:01:46 +0100
Subject: Challenge #28 Task #1

---
 challenge-029/dave-cross/perl5/ch-1.pl | 22 ++++++++++++++++++++++
 1 file changed, 22 insertions(+)
 create mode 100644 challenge-029/dave-cross/perl5/ch-1.pl

diff --git a/challenge-029/dave-cross/perl5/ch-1.pl b/challenge-029/dave-cross/perl5/ch-1.pl
new file mode 100644
index 0000000000..f7b741e1db
--- /dev/null
+++ b/challenge-029/dave-cross/perl5/ch-1.pl
@@ -0,0 +1,22 @@
+#!/usr/bin/perl
+
+use strict;
+use warnings;
+use feature 'say';
+
+@ARGV or die "Please give me at least one string.\n";
+
+for (@ARGV) {
+  say for brace_expand($_);
+}
+
+sub brace_expand {
+  my ($string) = @_;
+
+  my $braced;
+  unless (($braced) = $string =~ /\{(.+?)}/) {
+    return $string;
+  }
+
+  return map { $string =~ s/\{.+?}/$_/r; } split /,/, $braced;
+}
-- 
cgit