Select Code to Download

while ( chomp( my @lines = $it->() ) ) {

print for map { s/\s+/$letter++ . ' '/e; "$_\n" } @lines;