You can also do (updated)

use strict;

local $\ = "\n";
local $_ = 'x' x 1000;
my $pat  = qr/.{1,80}/;

while (/($pat)/g) {
    print $1;
}
[download]