Shell Programming and Scripting

nawk -F'|' '$1~"^[0-9][0-9]*$" && length($1)==10 {printf("%c%s", (FNR==1)?"":ORS,$0);next}{printf("%s", $0)}' myFile

 
#!/usr/bin/perl
my ($dataline, $record, $buildline);
$buildline = "";
$dataline = 0;
open(INFILE, "<", "datafile.txt") or die "Cannot open datafile.txt: $!";
while( $record = <INFILE>) {
       chomp($record);
       $dataline++;
       if ($record =~ m/^\d.*0$/) {
          # full line
          if ($buildline ne "") {         # Was there partial previous line?
             print "$buildline\n";
          }
          print "$record\n";
          $buildline = "";            # Reset line buffer for next fetch
       }
       else {
            $buildline = $buildline . $record;
       }
}
close(INFILE);