in reply to Anagram matching

my $base = join '', sort split //, lc $word;
while ( my $foo = <INFILE> ) {
   print $foo if ( join '', sort split //, lc $foo eq $base );
}

[download]
update Ok, so this doesn't even try to use regexes, but as others pointed out, regex matching of anagrams is neigh impossible.

-----------------------------------------------------
Dr. Michael K. Neylon - mneylon-pm@masemware.com || "You've left the lens cap of your mind on again, Pinky" - The Brain
"I can see my house from here!"
It's not what you know, but knowing how to find it if you don't know that's important

In Section Seekers of Perl Wisdom