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