perl -MO=Deparse,-x7 -e "if ($a) { &BLOCK }"
$a and do {
    &BLOCK
};
-e syntax OK