my @field = split /\|/, $_, 10; # each record has 10 fields