Challenge #28 Task #1

1 files changed, 22 insertions, 0 deletions

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;
+}