Challenge 330 by Jaldhar H. Vyas.

5 files changed, 13 insertions, 0 deletions

diff --git a/challenge-330/jaldhar-h-vyas/blog.txt b/challenge-330/jaldhar-h-vyas/blog.txt
new file mode 100644
index 0000000000..95291f344a
--- /dev/null
+++ b/challenge-330/jaldhar-h-vyas/blog.txt
@@ -0,0 +1 @@
+https://www.braincells.com/perl/2025/07/perl_weekly_challenge_week_330.html
diff --git a/challenge-330/jaldhar-h-vyas/perl/ch-1.sh b/challenge-330/jaldhar-h-vyas/perl/ch-1.sh
new file mode 100755
index 0000000000..e3c8278fa6
--- /dev/null
+++ b/challenge-330/jaldhar-h-vyas/perl/ch-1.sh
@@ -0,0 +1,3 @@
+#!/bin/sh
+
+perl -E '$_=shift;while(s/\D\d//){}say' "$@"
diff --git a/challenge-330/jaldhar-h-vyas/perl/ch-2.sh b/challenge-330/jaldhar-h-vyas/perl/ch-2.sh
new file mode 100755
index 0000000000..1fd149a5a3
--- /dev/null
+++ b/challenge-330/jaldhar-h-vyas/perl/ch-2.sh
@@ -0,0 +1,3 @@
+#!/bin/sh
+
+perl -E 'say join q{ },map{$_=lc;length>2&&s/^(.)/\u$1/;$_}(split/\W+/,shift)' "$@"
diff --git a/challenge-330/jaldhar-h-vyas/raku/ch-1.sh b/challenge-330/jaldhar-h-vyas/raku/ch-1.sh
new file mode 100755
index 0000000000..45fe99178f
--- /dev/null
+++ b/challenge-330/jaldhar-h-vyas/raku/ch-1.sh
@@ -0,0 +1,3 @@
+#!/bin/sh
+
+raku -e '$_=@*ARGS[0];while s/\D\d// {};.say' "$@"
diff --git a/challenge-330/jaldhar-h-vyas/raku/ch-2.sh b/challenge-330/jaldhar-h-vyas/raku/ch-2.sh
new file mode 100755
index 0000000000..3ab1de52ab
--- /dev/null
+++ b/challenge-330/jaldhar-h-vyas/raku/ch-2.sh
@@ -0,0 +1,3 @@
+#!/bin/sh
+
+raku -e '@*ARGS[0].words.map({$_.chars <3??$_.lc!!$_.tclc }).join(q{ }).say' "$@"