$ perl -E 'my $x = 3; say "foo\$x"' foo$x [download]
(Agreed on the thre-argument open though)
In reply to Re^2: Expanding a variable by moritz in thread Expanding a variable by PerlScholar