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

##</code><code>##

UNIVERSAL::isa($qr, 'Regexp')