> perl -MO=Deparse,-q
use warnings;
my (%a, %b, $c);
my $x = "$a{'foo'} $b{'bar'} $c"
__END__
use warnings;
my(%a, %b, $c);
my $x = $a{'foo'} . ' ' . $b{'bar'} . ' ' . $c;
- syntax OK