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

##</code><code>##

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