<>=~s/./ $z+=$y-$b{$&}; $y+=$a{$&}; $b{$&}+=$a{$&}; $a{$&}+=1; /ger; print$z;