my $copy = $str;
$copy =~ s/\\/\\\\/g;