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