my $output = $input;
$output = s/\Q$oldstring\E/$newstring/gs;