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