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