$ perl -Mre=debug -e'/$_/ for 1..2' 2>&1 | grep Compiling
Compiling REx "1"
Compiling REx "2"

$ perl -Mre=debug -e'$x="foo"; /$x/ for 1..2' 2>&1 | grep Compiling
Compiling REx "foo"