my @fields = split /|/, $record;

##</code><code>##

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