http://www.perlmonks.org?node_id=975958


in reply to defined ? to be : not

I dunno, since 5.10, we're given this possibility:
print 'Romeo ' . (($input // 'magic') eq 'to be' ? 'is' : 'is not') . +"\n";
..or, alternatively:
print 'Romeo is' . (($input // 'magic') ne 'to be' ? ' not' : '') . "\ +n";