Select Code to Download

my $seq = "...";
my @groups;
push @groups, [$-[0], $+[0]] while $seq =~ /M+/g;
print "$_->[0] to $_->[1]\n" for @groups;