$ perl -Mstrict -Mwarnings -E '
my $x = join("expression", "list");
say $x;
my $y = "list";
say $y;
'
list
list