my %Freds = (
  'Fred Joe Inc Software Company' => 1,
  'Software Fred Joe Co.'         => 1,
  # ...
)
my @Texts = $file =~ /<font.*?>(.*?)<\/font>/ig;
foreach (@Texts) {
  print $_ if $Freds{$_};
}