From 69d5a274bd2d196e03c2774720f9db41055893a2 Mon Sep 17 00:00:00 2001
From: k-mx <cppfero@gmail.com>
Date: Tue, 12 Apr 2022 16:08:56 +0500
Subject: Challenge-160/1 (Perl) by Maxim Kolodyazhny

---
 challenge-160/maxim-kolodyazhny/perl/ch-1.pl | 13 +++++++++++++
 1 file changed, 13 insertions(+)
 create mode 100644 challenge-160/maxim-kolodyazhny/perl/ch-1.pl

diff --git a/challenge-160/maxim-kolodyazhny/perl/ch-1.pl b/challenge-160/maxim-kolodyazhny/perl/ch-1.pl
new file mode 100644
index 0000000000..bdb4c1ebca
--- /dev/null
+++ b/challenge-160/maxim-kolodyazhny/perl/ch-1.pl
@@ -0,0 +1,13 @@
+#!/usr/bin/env perl
+
+# perl ch-1.pl 7
+use v5.20;
+
+$_ = pop;
+
+my @n = qw( 0 one two three four five six seven eight nine );
+my %l = map { $a++, length } @n;
+
+1while s/[^4]$/$n[$&] is $n[$l{$&}], $l{$&}/;
+
+say ucfirst s/4/four is magic./r
-- 
cgit