local $,=$\;

##</code><code>##

print /(.{1,80})/g

##</code><code>##

print grep /./, split /(.{1,80})/