Perl solution for week 1/part 1

2 files changed, 16 insertions, 0 deletions

diff --git a/challenge-001/abigail/README.md b/challenge-001/abigail/README.md
index 5655dfed12..e21e3a20af 100644
--- a/challenge-001/abigail/README.md
+++ b/challenge-001/abigail/README.md
@@ -7,6 +7,7 @@ Write a script to replace the character `e` with `E` in the string
 `e` is found in the string.
 
 ### Solutions
+* [Perl](perl/ch-1.pl)
 
 
 ## [Challenge #2](https://perlweeklychallenge.org/blog/perl-weekly-challenge-001
diff --git a/challenge-001/abigail/perl/ch-1.pl b/challenge-001/abigail/perl/ch-1.pl
new file mode 100644
index 0000000000..8fd893fb93
--- /dev/null
+++ b/challenge-001/abigail/perl/ch-1.pl
@@ -0,0 +1,15 @@
+#!/opt/perl/bin/perl
+
+use 5.032;
+
+use strict;
+use warnings;
+no  warnings 'syntax';
+
+use experimental 'signatures';
+use experimental 'lexical_subs';
+
+while (<>) {
+    my $changes = y/e/E/;
+    say $_, $changes
+}