Help for this page

Select Code to Download


  1. or download this
    d:\>perl -E"for $x (qw/C:\berrybrew\test C:\berrybrew /) {$_=$x; $bs=c
+hr(92); s#$bs$bs#<${bs}>#g; say}"
C:<\>berrybrew<\>test
C:<\>berrybrew

d:\>
  2. or download this
    use v5.12;
use warnings;
...
$_='$bs';
s/\$bs/<$&>/;
say;
  3. or download this
    C:<\>berrybrew<\>test
C:<\>berrybrew
<$bs>