Merge pull request #8070 from oldtechaa/avery-adams-216

Solution for task 1 week 216 for Avery Adams

2 files changed, 26 insertions, 0 deletions

diff --git a/challenge-216/avery-adams/blogs.txt b/challenge-216/avery-adams/blogs.txt
new file mode 100644
index 0000000000..1d6b5158ce
--- /dev/null
+++ b/challenge-216/avery-adams/blogs.txt
@@ -0,0 +1,2 @@
+https://blogs.perl.org/users/oldtechaa/2023/05/perl-weekly-challenge-216---choosing-a-nickname-for-your-car.html
+https://dev.to/oldtechaa/perl-weekly-challenge-216-car-nicknaming-4hko
diff --git a/challenge-216/avery-adams/perl/ch-1.pl b/challenge-216/avery-adams/perl/ch-1.pl
new file mode 100644
index 0000000000..82001509dd
--- /dev/null
+++ b/challenge-216/avery-adams/perl/ch-1.pl
@@ -0,0 +1,24 @@
+#!/usr/bin/perl
+
+use strict;
+use warnings;
+use v5.24;
+
+my %reg;
+foreach (split(//, shift)) {
+    my ($char) = ($_ =~ /([[:alpha:]])/);
+    $reg{lc($char)}++ if $char;
+}
+
+WORD:
+foreach (@ARGV) {
+    my $word = $_;
+    MATCH:
+    foreach (keys %reg) {
+        my $char = $_;
+        my $count = $reg{$_};
+
+        next WORD if $word !~ /${char}{$count,}/;
+    }
+    say $word;
+}