lanx@nc10-ubuntu:~$ perl -MO=Deparse,-x7 -e 'if($a){print $b}'
$a and do {
    print $b
};
-e syntax OK