- Added solution by Neil Bowers.

1 files changed, 11 insertions, 0 deletions

diff --git a/challenge-014/neil-bowers/perl5/ch-2.pl b/challenge-014/neil-bowers/perl5/ch-2.pl
new file mode 100644
index 0000000000..216e7887c9
--- /dev/null
+++ b/challenge-014/neil-bowers/perl5/ch-2.pl
@@ -0,0 +1,11 @@
+#!/usr/bin/perl
+
+use File::Slurper qw/ read_lines /;
+
+my @states = read_lines('state-codes.txt');
+my $re     = join('|', @states);
+my @words  = grep { /^($re)+$/ }
+             sort { length($b) <=> length($a) }
+             read_lines('word-list.txt');
+
+print $words[0], "\n";