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