while (<>) {
  @a = split (/\|/);
  foreach $n (0 .. $#a) {
    if (length($a[$n]) > length($b[$n])) {
      $b[$n] = $a[$n];
    }
  }
}
foreach $a (@b) {
  print "$a\n";
}