Select Code to Download

lanx@nc10-ubuntu:~$ perl -MO=Deparse -e  ' print if $a '
print $_ if $a;
...
lanx@nc10-ubuntu:~$ perl -MO=Deparse,-p -e  ' print if $a '
($a and print($_));
-e syntax OK