Re^2: Perl Idioms Explained - !!expr

[davidrw]

I would also mention just a simple ternary operator as an alternative:

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

or, more generally the equivalent to !!$expr is (some of the parens are optional depending on context):

(($expr)?1:'')