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