perl -e "$a = qq(foo); $a =~ m/(foo)/; $s = 1; $xx =  eval('\$$s');print $$xx; "