@array = @array2;
@array2 = ();

foreach $line (@array) {
     $count = $line =~ s/\b$oldline\b/$spliced/eg;
     $totalcount += $count;
     push @array2, $line;
}