http://www.perlmonks.org?node_id=169091


in reply to Re: Re: Equal line spacing in records of a file
in thread Equal line spacing in records of a file

print pack('A30', $thing_that_should_be_30_chars_long);
# or
print pack('A30' x scalar(@stuff_to_pad), @stuff_to_pad);

[download]

In Section Seekers of Perl Wisdom