$orderfound = 0;     # Flag used to keep track of Orders being found

while (<>) {
  $line = $_;

  if ($line=~/MSG-HDR/)
     { $orderfound = 1; 
     }
      
  if (($orderfound) && ($line=~/|UB/))
     { print "$line \n";
       $orderfound = 0; 
     } 
}