while (my $line = <$fh>){
    if (#line matches what you're after...){
        # Do action on it here...
    }
}