my $foo = "bar" . "baz"; print $foo, "\n";