while ($w =~ /((.)(\2{7}|\2{3}|\2))/sg) {
   ... do something ...
}