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