#PERL Counts each "|" denoting a new column, and outputs the first 10 columns per line.

DBOutput_cleanup.pl

#!/usr/bin/env perl

while (my $row = <>) {
  chomp $row;
  my $num_of_pipes = $row =~ tr/|//;        
  while (($num_of_pipes < 10) && ($num_of_pipes > 0)) {              
    my $next_line = <>;
    $row .= $next_line; 
    $num_of_pipes = $row =~ tr/|//;  
  }
  print $row."\n"; 
}