d:\>perl -E"for $x (qw/C:\berrybrew\test C:\berrybrew /) {$_=$x; $bs=chr(92); s#$bs$bs#<${bs}>#g; say}" C:<\>berrybrew<\>test C:<\>berrybrew d:\>