while ( my $line = <$fh>) {
    chomp $line;
    my $found = ($line =~ /$re/);
    # Profit!
}