my $outputData = $line;
  while (length($outputData) < 4) {
    $outputData .= '_';
  }
  print NPBXNUM1 "$outputData\n";
}