while(<READTHIS>){
	if($_ =~ /cat/) {
		print "Yeppers!\n"
	}
	else{
	print $_;
	}