by_index2 => sub { my @offsets; for (my $p = 0; ($p = index($str, "\n", $p)) > 0; push @offsets, $p++) { } \@offsets; # I made all of them return a ref to the array so I could check results },