• + 0 comments

    perl:

    while(<>){
        print if(/^[Hh][Ii]\s[^Dd]/)
    }