$ perl -wle 'my $x = 3; print $ x; print "$ { x }"' 3 3