From 1db7b85d526ea78d0a35d267970da7f229635012 Mon Sep 17 00:00:00 2001
From: KjetilS <kjetilskotheim@gmail.com>
Date: Sat, 19 Jul 2025 10:09:16 +0200
Subject: https://theweeklychallenge.org/blog/perl-weekly-challenge-330/

---
 challenge-330/kjetillll/perl/ch-1.pl | 9 +++++++++
 challenge-330/kjetillll/perl/ch-2.pl | 7 +++++++
 2 files changed, 16 insertions(+)
 create mode 100644 challenge-330/kjetillll/perl/ch-1.pl
 create mode 100644 challenge-330/kjetillll/perl/ch-2.pl

diff --git a/challenge-330/kjetillll/perl/ch-1.pl b/challenge-330/kjetillll/perl/ch-1.pl
new file mode 100644
index 0000000000..d0d2e57653
--- /dev/null
+++ b/challenge-330/kjetillll/perl/ch-1.pl
@@ -0,0 +1,9 @@
+sub f {
+    my $str=shift;
+    1 while $str =~ s/ [^\d] \d //x;
+    $str
+}
+print f( $$_[0] ) eq $$_[1] ? "ok\n" : "err\n" for map [split], split /\n/, <<""
+cab12 c
+xy99 
+pa1erl perl
diff --git a/challenge-330/kjetillll/perl/ch-2.pl b/challenge-330/kjetillll/perl/ch-2.pl
new file mode 100644
index 0000000000..86aafcf5b5
--- /dev/null
+++ b/challenge-330/kjetillll/perl/ch-2.pl
@@ -0,0 +1,7 @@
+sub f {
+    lc(pop) =~ s/\w{3,}/\u$&/gr
+}
+print f( $$_[0] ) eq $$_[1] ? "ok\n" : "err $s\n" for map [ split/\s*->\s*/ ], split /\n/, <<'';
+PERL IS gREAT        -> Perl is Great
+THE weekly challenge -> The Weekly Challenge
+YoU ARE A stAR       -> You Are a Star
-- 
cgit