my $re = "\\|";  # \|
split($re, ...)