while( my $line = <FH> ) {
    if ( $line =~ m/A-Za-z/ ) {
        ....
    }
}
close FH