my $tgt = 60 ;
while( (1 x $tgt)=~/^(11+?)\1+$/ or ( print $tgt . "\n" and 0 ) ){
　$tgt /= my $l = length $1 ;
　print $l . "\n" ;
}