Help for this page
my @words = <DICTIONARY>;
#! /usr/bin/perl -w use strict; ... my $regex = qr{[$input]+}; my @matches = grep /^$regex$/, @words; print "$_\n" for @matches;