print 'It ', ($result ? 'did ' : 'did not'), "match\n"; #### print 'It ', ('did' 'did not')[$result], "match\n";