perl -wle 'use strict; my $bar = 3; my $foo = \$bar; print "$$foo"' # outputs: 3 #### qq[Title[\@Name="$$titlename"]] =>