From fe1428043b97c65bc87d9a68a10defb68d86f620 Mon Sep 17 00:00:00 2001
From: James Smith <js5@sanger.ac.uk>
Date: Tue, 9 May 2023 00:08:53 +0100
Subject: Create ch-1.pl

---
 challenge-216/james-smith/perl/ch-1.pl | 28 ++++++++++++++++++++++++++++
 1 file changed, 28 insertions(+)
 create mode 100644 challenge-216/james-smith/perl/ch-1.pl

diff --git a/challenge-216/james-smith/perl/ch-1.pl b/challenge-216/james-smith/perl/ch-1.pl
new file mode 100644
index 0000000000..46a4379d72
--- /dev/null
+++ b/challenge-216/james-smith/perl/ch-1.pl
@@ -0,0 +1,28 @@
+#!/usr/local/bin/perl
+
+use strict;
+use warnings;
+use feature qw(say);
+use Test::More;
+use Benchmark qw(cmpthese);
+
+my @TESTS = (
+ [ ['AB1 2CD', qw(abc   abcd  bcd  )], 'abcd'      ],
+ [ ['007 JB',  qw(job   james bjorg)], 'job bjorg' ],
+ [ ['C7 RA2',  qw(crack road  rac  )], 'crack rac' ],
+);
+
+sub reg_number {
+  my (%l,%x) = map { /[a-z]/ ? ($_=>1) : () }
+               split //,
+               lc
+               shift;
+  grep {
+    %x=%l;
+    delete $x{$_} for split//;
+    !%x;
+  } @_
+}
+
+is( "@{[ reg_number(           @{$_->[0]} ) ]}", $_->[1] ) for @TESTS1;
+done_testing();
-- 
cgit