use strict;
use warnings;

my $ca = "california.html";

open(my $f1, "<" , $ca) or die "Can't open file '$ca': $!";
while ( my $line = <$f1> ) {
    print "line: $line";
    if ( $line =~ m{Employee +([^<]+)</th><th>([^<]+)} ) {
        my $name = $1;
        my $two  = $2;
        print "  name='$name' two='$two'\n";
    }
}

close ($f1);