$text =~s/(.{1,$length}).*/
length($1)<$length?$"x($length-length($1)).$1:$1/e;