use strict;
use warnings;
my $oldline = qr/xyzzy/;
my $spliced =  q/"$1$1"/;
my @array = (
    'xyzzy blah xyzzy moreBLah xyzzy asdfouyXYZZY',
    'blah xyzzy',
);

my $count;

$count +=  s/\b($oldline)\b/$spliced/gee for @array;

$" = "\n";
print "@array\n\n";