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

# output
# null fields: 0
# at field: