s/(.{25})/$1 /g for @cut;

##</code><code>##

print "<ul>\n";
print "<li>$_</li>\n" for @cut;
print "</ul>\n";