#!/usr/bin/perl 

while (<>){
   s/CAT/mouse/g;
   print;
}