# partial snippet
use strict;
use warnings;
use Regexp::Common;

# ...

while( chomp(my $text = <$f1>) ) {
  my ($one, $two, $three); # Also these variable names are not very descriptive.
  if ($text =~ m!Employee\sA</th><th>($RE{num}{real})<!) {
    $one = $1;
  } # ...