Regexes won't automatically search for all permutations of words, so you must to it yourself:

@words = split $string;
$found = 1;
foreach my $word (@words) {
   unless ($file =~ /$word/ ) {
      $found = 0;
      $last;
   }
}
print "Found: $string" if $found;
[download]

Dealing with synonyms for comapny, co. and inc. are a bit more difficult. You could either strip these out of the string or special case them in the "and" loop.

-Mark