P:\test>perl -m-warnings=syntax -MO=Deparse,-p
    if (COND) {
        print ("something")
    }
^Z
no warnings;
do {
    print('something')
};
- syntax OK