use Quantum::Superpositions;
$\ = $/;

# Create a disjunction of 'a' and 'b'.
$dis = any( 'a', 'b' );
print "=~: ",$dis =~ /^b$/; # false
print "eq: ",$dis eq 'b';   # true