Select Code to Download

use strict;
use warnings;
...
while ( my @vals = $it->() ) {
    print "@vals\n";
}

a b c
e 1 2
3 4 5
3 f

use strict;
use warnings;
...
END

print wrap("  ", '', $text);

  BTW - I use
this for
...
multi-line output
- tables and
such.