$ perl -MO=Deparse re
my $one = 'TestnewTest';
$one =~ s//new/;
'???';
'???';
print "$one\n";
re syntax OK