my $one = "TestnewTest";
$one =~ s;;new;;old;;g;

print "$one\n";

##</code><code>##

newTestnewTest