You could approach that problem from at least two sides:

• Find a pattern that tolerates all variations, but is exact enough to exclude anything you don't want to find. Or:
• Make a hash with all possible variations as keys and check if your match exists in the hash.

The first approach might work if you can extract a common, unambigous string from all variations. For example if "Fred Joe" works as such an identifier, you could just look for /<font.*?>(.*?Fred Joe.*?)<\/font>/ig

The second approach makes only sense when you know all variations. It could look like the following:

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

^~Django
"Why don't we ever challenge the spherical earth theory?"