(1 x $a) =~ /(?:$1)*(.*)/ and ($a, $b) = ($b, length $1) while $b