$x=~s/(.{1,3}|^$)\n?/sprintf"'%-3s'\n",$1/eg; #### $x=~s/(.{1,3}|^$)\n?/sprintf"'%-3s'\n",$1/meg;