perl -Mre=debug -e '@x=qw/a b a a c a/; while (($a,$b,@x)=@x) { /$a/;/$b/ }' 2>&1|grep Compiling
Compiling REx "a"
Compiling REx "b"
Compiling REx "a"
Compiling REx "c"