my $foo = 'foo';
my $bar = "$ foo";

This also works with variable declarations:

my $ bar = "foo\n"; print $bar;