Select Code to Download

split(/\|/, ...)

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

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

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

my $sep = $arr[2];
split(quotemeta($sep), ...)