##
use v5.12;
use warnings;
use Data::Dump;
my $bs=chr(92);
for my $x (qw/C:\berrybrew\test C:\berrybrew /) {
$_=$x;
s#$bs$bs#<${bs}>#g;
say;
#ddx $_;
}
$_='$bs';
s/\$bs/<$&>/;
say;
##
##
C:<\>berrybrew<\>test
C:<\>berrybrew
<$bs>