Select Code to Download

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

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