in reply to how do you use the index function on this example?
Ah, never mind, I found this solution:
Thanks
while($string=~/(M+)/g) { ($start, $end) = ($-[0], $+[0]); print $start."\t".$end."\n"; }
Thanks
In Section
Seekers of Perl Wisdom