http://qs1969.pair.com?node_id=1142679


in reply to Re: how do you use the index function on this example?
in thread how do you use the index function on this example?

And you don't even need the capturing parentheses:

c:\@Work\Perl>perl -wMstrict -le "my $string = 'IIIIMMMMMMMOOOOOOOOOOMMMMMMMMMMMMMMMIIIIIIMMMMOOOO'; ;; while ($string =~ /M+/g) { my ($start, $end) = ($-[0], $+[0]); print qq{start $start, end $end}; } " start 4, end 11 start 21, end 36 start 42, end 46
Note that  @+ holds the positions of the first character after matched sub-strings!


Give a man a fish:  <%-{-{-{-<