на perl

open lol,"<in.txt";
open bygag,">out.txt";
while(<lol>){
print bygag $_ if(! $_=~/qweqwe/i);
}
close(lol);close(bygag);

вот както так