open(NPBXNUM1, ">npbxnum1");
open(MYINPUTFILE, "npbxnum");

while (<MYINPUTFILE>) {
chomp;
$line .= '_' x (4 - length $line);
}

close(MYINPUTFILE);
close(NPBXNUM1);

system "mv npbxnum1 npbxnum";