say "[$-[0], $+[0])" while "aaaaa" =~ /a*?/g;