1 files changed, 12 insertions, 0 deletions
diff --git a/challenge-029/prajith-p/perl5/ch01.pl b/challenge-029/prajith-p/perl5/ch01.pl
new file mode 100644
index 0000000000..cf5485900d
--- /dev/null
+++ b/challenge-029/prajith-p/perl5/ch01.pl
@@ -0,0 +1,12 @@
+#!/usr/bin/perl
+
+use feature qw<say>;
+
+my $arg = $ARGV[0];
+
+if ($arg =~ m/\{(.+)\}/) { 
+  for my $str  (split(',', $1)) {
+      (my $o = $arg ) =~ s/(\{.+\})/$str/;
+      say $o;
+  }
+}