C:\test>perl -MO=Deparse
if( 2 ) {
}
else {
}
^Z
do {
    ()
};
- syntax OK