$ perl -MO=Deparse,-p -e "sub test { return int(rand(2)) or print 'Nope' }" sub test { ((return int(rand(2))) or print('Nope')); } -e syntax OK