perl -MO=Deparse -e ' if(1) {print "true"}'     
do {
    print 'true'
};