Help for this page

Select Code to Download


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