print "There is no spoon" if $oracle->none(qw(neo trinity morpheus)) eq 'one';