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 +([^<]+)([^<]+)} ) { my $name = $1; my $two = $2; print " name='$name' two='$two'\n"; } } close ($f1); ####

Summary

Employee A-0.82
Employee B-5.02
Employee C19

Summary

#### line:
Employee A
Employee B
Employee C

line: Summary

name='A' two='-0.82' line: name='B' two='-5.02' line: name='C' two='19' line:
Employee A-0.82
Employee B-5.02
Employee C19

line: Summary

line: line:
Employee A
Employee B
Employee C