$ perl -E 'my $x = 3; say "foo\$x"'
foo$x