Perl solution for week 97, part 1

1 files changed, 26 insertions, 0 deletions

diff --git a/challenge-097/abigail/perl/ch-1.pl b/challenge-097/abigail/perl/ch-1.pl
new file mode 100644
index 0000000000..9ffda0a6e5
--- /dev/null
+++ b/challenge-097/abigail/perl/ch-1.pl
@@ -0,0 +1,26 @@
+#!/opt/perl/bin/perl
+
+use 5.032;
+
+use strict;
+use warnings;
+no  warnings 'syntax';
+
+use experimental 'signatures';
+use experimental 'lexical_subs';
+
+#
+# See ../README.md
+#
+
+#
+# Run as: perl ch-1.pl < input-file
+#
+
+while (<>) {
+    chomp;
+    my ($times, $plain) = split ' ', $_, 2;
+    $times %= 26;
+    $plain =~ y/A-Z/ZA-Y/ for 1 .. $times;
+    say $plain;
+}