>echo $perlcode
$a="x\\y\\z";@b=split('\\\\',$a);print join(";",@b),"\n"
>perl -e "$perlcode"
x;y;z

##</code><code>##

>echo $perlcode
$a="x\\y\\z";@b=split("\\\\",$a);print join(";",@b),"\n"
>perl -e "$perlcode"
x;y;z