$dest =~ s/\//\\/g;
# Rewritten:
$dest =~ s#/#\\#g; # Singular character
$dest =~ s{/}{\\}g; # Paired characters