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