Select Code to Download

    my $r = bless qr/foo/, "MyPackage";

    my $r = bless \qr/foo/, "MyPackage";

$ perl -le 'my $r = "bar"; print "yes" if "foobarbaz" =~ $r'
yes

#!/usr/bin/perl -w
use strict;
...
print '"stringified" matched $plain' if "stringified" =~ $plain;
__END__
"stringified" matched $plain

#!/usr/bin/perl -w
use strict;
...
$ob isa Regexp
$qr: (?-xism:foo)
$ob: Regexp=SCALAR(0x805f148)