$line =~ y/1/,/; $len = split /\b/, $line;


##</code><code>##

 $len = 
+ (() = /(.)\1*\1*\1*\1*/g)
+ /(.)\1\1|(.)\2.*.*.*.*(.)\3/
+ /(.)\1/