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