#           delimiters
#             |  ||  |
#             v  vv  v
$localdir =~ s{/}{\\}g;
#              ^  ^^
#              |   |
#    search part   replacement