print "Do you prefer foo or bar? [foo]"; if (chomp($_=),$_ and $_ eq "bar") { print "A fine, if a bit non-traditional, choice.\n"; } else { print "Do you know the origin of word 'foo'? So do we.\n"; }