./perl -Ilib -le'
    my $r = ${ qr/abc/ };
    print $r;
    print ref($r)           ?1:0;
    print re::is_regexp($r) ?1:0;
    print "abc" =~ $r       ?1:0;
'
(?-xism:abc)
0
1
1