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