Help for this page
Select Code to Download
Select
or
download this
... $txt =~ s/(.{1,3}|^$)/sprintf"'%3s'\n",$1/ge; print $txt; ...