Help for this page
s/(.{25})/$1 /g for @cut;
print "<ul>\n"; print "<li>$_</li>\n" for @cut; print "</ul>\n";