Help for this page
perl -e "$a = qq(foo); $a =~ m/(foo)/; $s = 1; $xx = eval('\$$s');pri +nt $$xx; "