my $entries = 1; s/\s/$entries++/eg;