use HMTL::Parser;

my $ca = "california.html";

open (my $f1, "<" , $ca) || die ("Can't open file : california.html");

while (<$f1>){
        if (my $text =~ /Employee\sA</th><th>.\d</){
                my $one = $1;
        }elsif (my $text =~ /Employee\sB</th><th>.\d</){
                my $two = $1;
        }elsif (my $text =~ /Employee\sC</th><th>.\d</){
                my $three = $1;
        }
}

close ($f1);