$string =~ /(.)\1\1/