use warnings;
use strict;
use File::Replace 'replace3';

my @files = <Test*_Copy>;
for my $modfile (@files) {
	my ($infh,$outfh,$repl) = replace3($modfile);
	my $data = do { local $/; <$infh> };
	$data =~ s/Marry Had A\nLittle Lamb\nShe Was GOOD\n/CHANGED!!!\n/smg;
	print $outfh $data;
	$repl->finish;
}