Help for this page

Select Code to Download

Select or download this

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