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