Challenge 330

2 files changed, 31 insertions, 0 deletions

diff --git a/challenge-330/mahnkong/perl/ch-1.pl b/challenge-330/mahnkong/perl/ch-1.pl
new file mode 100644
index 0000000000..8063b02757
--- /dev/null
+++ b/challenge-330/mahnkong/perl/ch-1.pl
@@ -0,0 +1,14 @@
+use strict;
+use warnings;
+use feature 'signatures';
+use Test::More 'no_plan';
+
+sub run($str) {
+    $str =~ s/\D?\d// while $str =~ /\D?\d/;
+    return $str;
+}
+
+is(run('cab12'), 'c', "Example 1");
+is(run('xy99'), '', "Example 2");
+is(run('pa1erl'), 'perl', "Example 3");
+is(run('ab132x'), 'x', "Example 4");
diff --git a/challenge-330/mahnkong/perl/ch-2.pl b/challenge-330/mahnkong/perl/ch-2.pl
new file mode 100644
index 0000000000..904af50abf
--- /dev/null
+++ b/challenge-330/mahnkong/perl/ch-2.pl
@@ -0,0 +1,17 @@
+use strict;
+use warnings;
+use feature 'signatures';
+use Test::More 'no_plan';
+
+sub run($string) {
+    my @result;
+    while ($string =~ /(\S+)/g) {
+        push @result, lc($1);
+        $result[-1] = ucfirst($result[-1]) if length($result[-1]) > 2;
+    }
+    return join(" ", @result);
+}
+
+is(run("PERL IS gREAT"), "Perl is Great", "Example 1");
+is(run("THE weekly challenge"), "The Weekly Challenge", "Example 2");
+is(run("YoU ARE A stAR"), "You Are a Star", "Example 3");