$ perl -MO=Deparse,-p -e '$a=$;;print $a' ($a = $;); print($a); -e syntax OK