$ perl -MO=Deparse,-p test.pl
use warnings;
use strict;
(my $tmp = 2);
(my $var = 3);
print((($var > $tmp) ? 'yes' : 'no'));
print("\n");
((exit($var) > $tmp) ? '???' : '???');
test.pl syntax OK