zcat plik | perl -ne "s{[^a-zA-Z_ ]}{};print if m{cos tam}"