perl -MO=Deparse -e 'my ($a,$b) = split("\\|/","a/b");'           
my($a, $b) = split(m[\|/], 'a/b', 3);

perl -e 'my ($a,$b) = split("\\|/","a|/b"); print "a:$a\nb:$b\n"' 
a:a
b:b