- Added blog post by Roger Bell_West.

- Added solutions by Joelle Maslak.
- Added solutions by Bruce Gray.
- Added solutions by Athanasius.
- Added solutions by Matthias Muth.
- Added solutions by Jan Krnavek.
- Added solutions by Cheok-Yin Fung.
- Added solutions by Simon Green.
- Added solutions by Andrew Schneider.
- Added solutions by W. Luis Mochan.
- Added solutions by Ian Goodnight.
- Added solutions by Nelo Tovar.
- Added solutions by Robert DiCicco.
- Added solutions by BarrOff.

4 files changed, 54 insertions, 0 deletions

diff --git a/challenge-273/iangoodnight/perl/task1.pm b/challenge-273/iangoodnight/perl/Task1.pm
index 645852ce09..645852ce09 100644
--- a/challenge-273/iangoodnight/perl/task1.pm
+++ b/challenge-273/iangoodnight/perl/Task1.pm
diff --git a/challenge-273/iangoodnight/perl/ch-1.sh b/challenge-273/iangoodnight/perl/ch-1.sh
new file mode 100644
index 0000000000..1738851579
--- /dev/null
+++ b/challenge-273/iangoodnight/perl/ch-1.sh
@@ -0,0 +1 @@
+perl -I. t/task1.t
diff --git a/challenge-273/iangoodnight/perl/ch-2.sh b/challenge-273/iangoodnight/perl/ch-2.sh
new file mode 100644
index 0000000000..81b77e050f
--- /dev/null
+++ b/challenge-273/iangoodnight/perl/ch-2.sh
@@ -0,0 +1 @@
+perl -I. t/task2.t
diff --git a/challenge-273/robert-dicicco/perl/ch-1.pl b/challenge-273/robert-dicicco/perl/ch-1.pl
new file mode 100644
index 0000000000..9765f0e6f8
--- /dev/null
+++ b/challenge-273/robert-dicicco/perl/ch-1.pl
@@ -0,0 +1,52 @@
+#!/usr/bin/env perl
+=begin comment
+-----------------------------------------
+AUTHOR: Robert DiCicco
+DATE  : 2024-06-15
+Challenge 273 Percentage of Character ( Perl )
+-----------------------------------------
+=cut
+use v5.38;
+use strict;
+use warnings;
+use Math::Round;
+
+sub CharPC {
+    my $wd = shift;
+    my $ch = shift;
+    my $ln = length($wd);
+    my $count = length( $wd =~ s/[^\Q$ch\E]//rg );
+    say nearest(1,(($count / $ln ) * 100));
+
+}
+my $number_args = $#ARGV + 1;
+if ($number_args != 2) {
+    print "Wrong entry. Please enter your full name.\n";
+    exit;
+}
+my ($str, $char) = @ARGV;
+CharPC($str, $char);;
+
+=begin comment
+SAMPLE OUTPUT
+----------------------------------------------------------
+perl PcofChar.pl perl e
+25
+
+perl PcofChar.pl java a
+50
+
+perl PcofChar.pl python m
+0
+
+perl PcofChar.pl ada a
+67
+
+perl PcofChar.pl ballerina l
+22
+
+perl PcofChar.pl analitik k
+13
+----------------------------------------------------------
+=cut
+