my $delim = qr/\|/;
my $line = "a||c|\t|  |d||e";
my @fields = split($delim, $line);
[download]

The qr operator quotes and compiles its STRING as a regular expression.
split splits on a pattern (regex).

update:

Added explanation.