Broken:
   while ($line = <READTHIS>) {
       if ($line =~ /cat/) {
           print "yeppers!";
       }
   }</I>
##</code><code>##

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