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