Select Code to Download

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