while(<>) {
  chomp;
  my @array = split(/\|/);
}