my $bqr=bless qr/^blessed$/,"Foo";
print "no match for $bqr\n" unless "normal" =~ m/$bqr/;