$var .= substr(" " x 40, length($var)) if length($var) < 40;

##</code><code>##

print $var . (length($var)<40?substr(" " x 40, length($var)):"");