$_='abbbcddddfegrgrgddeeeeedd'; print+(@b=sort{(()=$b=~/./g)<=>(()=$a=~/./g)}/((.)\2+)/cg)[0] #62