Help for this page

Select Code to Download

Select or download this

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

Select or download this
```
UNIVERSAL::isa($qr, 'Regexp')
```