$ perl -MO=Deparse 2
sub two {
    rand;
}
print two(two() == 'five' ? 'true' : 'false');
2 syntax OK

$ perl -MO=Deparse,-p 2
sub two {
    (rand);
}
print(two(((two() == 'five') ? 'true' : 'false')));
2 syntax OK