(my $output = $string) =~ s/\Q$oldstring\E/$newstring/gs;