if ($slurped_file =~ s/\Q$old_string\E/$new_string/g ) {