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