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

##</code><code>##

  s/\r//g;