print "a double matches b\n" if $a ~~ ~~$b;
print "a not double matches b\n" if not $a =~ ~~~$b;