use warnings;
use strict;
use Path::Tiny;

my @files = path(".")->children(qr/^Test.*_Copy$/);
for my $modfile (@files) {
	$modfile->edit(sub {
		s/Marry Had A\nLittle Lamb\nShe Was GOOD\n/CHANGED!!!\n/smg;
	});
}