Select Code to Download

use warnings;
use strict;
...
    print $ofh $data;
    close $ofh;
}

use warnings;
use strict;
...
        s/Marry Had A\nLittle Lamb\nShe Was GOOD\n/CHANGED!!!\n/smg;
    });
}

perl -wMstrict -0777 -i -pe 's/Marry Had A\nLittle Lamb\nShe Was GOOD\
+n/CHANGED!!!\n/smg' Test*_Copy

use warnings;
use strict;
...
    print $outfh $data;
    $repl->finish;
}

use warnings;
use strict;
...
    print $fh $data;
    close $fh;
}