Help for this page
$dec eq "to be" ? print "Romeo is" : print "Romeo is not";
print $dec eq 'to be' ? 'Romeo is' : 'Romeo is not';
print 'Romeo is', $dec eq 'to be' ? '' : ' not';