my @fields = split /\|/, $line;

##</code><code>##

my @a = $line =~ /([^\|]+)\|?/g;