open my $fh, '<', $filename  
  or die "open($filename, ro) failed: $!";
while ( my $line = <$fh> ) {

    if ( $line =~ m/<tt>([^<]+)</tt> ) {
        print "Match: $1\n";
    }
}
close $fh;