perl -MO=Deparse testscript if ($a eq 'quackidiquack') { (); } if ($a eq 'quackidiquack') { (); } testscript syntax OK