split(/.{80}/, $data)

##</code><code>##

grep(defined, split(/(.{80})/, $data))

##</code><code>##

my @lines = grep(length, split(/(.{80})/, $data));