my $re = qr/\|/;
split($re, ...)