() = $line =~ /(.)\1*\1*\1*\1*/g