$output = "...............";
while (local ($_) = $output =~ /(.*\n?)/) {
    ...
}
[download]

This is assuming you haven't modified $/ (or $*).

Abigail