Help for this page
print for map { s/\s+/$letter++ . ' '/er} @lines; print for map { s/\s+/$letter++ . ' '/e; "$_\n" } @lines;
my $it = natatime 5, <DATA>; with my $it = natatime 5, grep /\A\s{4}\d/, <DATA>;
An Englishman in New York An American Werewolf in London An American in Paris The Innocents Abroad An Idiot Abroad Robinson Crusoe on Mars A Connecticut_Yankee in King Arthur's Court There and Back Again Travels into Several Remote Nations of the World
Results (74 votes). Check out past polls.