Given a word and a file with more words, find anagrams.

ana.pl

use strict;
use warnings;

use Data::Dumper;

die "Malfunction. Need input." unless $ARGV[0] and $ARGV[1];

my @m = sort split('',lc($ARGV[0]));
my $m = (join "?", @m) . "?";

#print Dumper $m; die;

open(W, $ARGV[1]);
while (my $line = <W>) {
    chomp($line);
    if((join "",sort split('',lc($line)))=~/^\s*$m$/
        and length $line == length $ARGV[0]) 
    { print $line . "\n"; };
}
close(W);