in reply to Write padded output without newline

If printf is being tricky then you could use x instead

print OUTFILE $_,' ' x (200 - length($_));

In Section Seekers of Perl Wisdom