Select Code to Download

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

while(<READTHIS>){
    if($_ =~ /cat/) {
...
    print $_;
    }