Select Code to Download

$ perl -MO=Deparse,-p
print $lines > 1 ? 'plural' : 'singular';
...
print((($lines > 1) ? 'plural' : 'singular'));
(print(($lines > 1)) ? '???' : '???');
- syntax OK