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