I dunno, since 5.10, we're given this possibility:

print 'Romeo ' . (($input // 'magic') eq 'to be' ? 'is' : 'is not') . 
+"\n";
[download]

..or, alternatively:

print 'Romeo is' . (($input // 'magic') ne 'to be' ? ' not' : '') . "\
+n";
[download]