my $foo = 'foo'; my $bar = "$ foo";
This also works with variable declarations:
my $ bar = "foo\n"; print $bar;