use Quantum::Superpositions;

# Create a disjunction of 'a' and 'b'.
$dis = any( 'a', 'b' );
$dis =~ /.*/ && print $&;
[download]

-Matt

#!/usr/bin/perl
use Quantum::Superpositions;
$\ = $/;

# Create a disjunction of 'a' and 'b'.
$dis = any( 'a', 'b' );
print $dis;
print "=~: ",$dis =~ /\bb\b/; # true
print "eq: ",$dis eq 'b';   # true
[download]

I do believe Perl 6's built in any will work with the binding operator. I also took a peak under the hood of the module itself. I could not find a binding operator listed:

q{<}    =>  sub { qblop(swap(@_), sub { $_[0] < $_[1]   })},
q{<=>}  =>  sub { qblop(swap(@_), sub { $_[0] <=> $_[1] })},
... all kinds of other tests
q{~}    =>  sub { $_[0]->quop(sub { ~$_[0]     })},
[download]

Cheers - L~R

Update: I guess I spent too long digging around under the hood as Matt beat me to the punch.

Update 2: Chmrr reminded me that ~ is bitwise negation and that the binding operator can't be overloaded - see perldoc overload - Chmrr++

As to the perl 6 stuff, BTW, there is a binding operator, :=, but it's nothing like =~; it binds one variable to be an alias of another. =~ is becomming the smart-match operator, ~~, which will do even more then =~, becomming polymorphic on both sides, doing things like array intersection.

In any case, pretty much all operators are overloadable in perl6. However, smart-match is probably smart enough to call the approprate string-/num-/bool-/etc-rafication overloads, as approprate.

---

Warning: Unless otherwise stated, code is untested. Do not use without understanding. Code is posted in the hopes it is useful, but without warranty. All copyrights are relinquished into the public domain unless otherwise stated. I am not an angel. I am capable of error, and err on a fairly regular basis. If I made a mistake, please let me know (such as by replying to this node).