return grep($_ eq $_[0], @_[ 1 .. $#_ ]) ? 1 : '';

##</code><code>##

(($expr)?1:'')