5 files changed, 23 insertions, 0 deletions
diff --git a/challenge-341/jaldhar-h-vyas/blog.txt b/challenge-341/jaldhar-h-vyas/blog.txt
new file mode 100644
index 0000000000..5772491020
--- /dev/null
+++ b/challenge-341/jaldhar-h-vyas/blog.txt
@@ -0,0 +1 @@
+https://www.braincells.com/perl/2025/10/perl_weekly_challenge_week_341.html
diff --git a/challenge-341/jaldhar-h-vyas/perl/ch-1.pl b/challenge-341/jaldhar-h-vyas/perl/ch-1.pl
new file mode 100755
index 0000000000..0725097713
--- /dev/null
+++ b/challenge-341/jaldhar-h-vyas/perl/ch-1.pl
@@ -0,0 +1,8 @@
+#!/usr/bin/perl
+use 5.038;
+use warnings;
+
+my $str = shift;
+my $broken = shift // q{.};
+
+say scalar grep { !/[$broken]/i } split /\s+/, $str;
+\ No newline at end of file
diff --git a/challenge-341/jaldhar-h-vyas/perl/ch-2.pl b/challenge-341/jaldhar-h-vyas/perl/ch-2.pl
new file mode 100755
index 0000000000..09291f2454
--- /dev/null
+++ b/challenge-341/jaldhar-h-vyas/perl/ch-2.pl
@@ -0,0 +1,8 @@
+#!/usr/bin/perl
+use 5.038;
+use warnings;
+
+my ($str, $char) = @ARGV;
+
+$str =~ s/(^.+?$char)/reverse $1/e;
+say $str;
+\ No newline at end of file
diff --git a/challenge-341/jaldhar-h-vyas/raku/ch-1.sh b/challenge-341/jaldhar-h-vyas/raku/ch-1.sh
new file mode 100755
index 0000000000..09606d6d3c
--- /dev/null
+++ b/challenge-341/jaldhar-h-vyas/raku/ch-1.sh
@@ -0,0 +1,3 @@
+#!/bin/sh
+
+raku -e '@*ARGS[0].words.grep({$_!~~m:i/@(@*ARGS[1].comb)/}).elems.say' "$@"
+\ No newline at end of file
diff --git a/challenge-341/jaldhar-h-vyas/raku/ch-2.sh b/challenge-341/jaldhar-h-vyas/raku/ch-2.sh
new file mode 100755
index 0000000000..22bfc46680
--- /dev/null
+++ b/challenge-341/jaldhar-h-vyas/raku/ch-2.sh
@@ -0,0 +1,3 @@
+#!/bin/sh
+
+raku -e 'say S/(^.+?$(@*ARGS[1]))/$($0.flip)/ given @*ARGS[0]' "$@"
+\ No newline at end of file