$ perl -MO=Deparse -e " my $foo = $bar and $baz; "
$baz if my $foo = $bar;
-e syntax OK

$ perl -MO=Deparse,-p -e " my $foo = $bar and $baz; "
((my $foo = $bar) and $baz);
-e syntax OK