The official solution is:

    UNIVERSAL::isa( $re, "Regexp" )
[download]

but unfortunately UNIVERSAL::isa() is broken in this respect. Time to send in a patch (well, at least a bug report)!

        - tye (but my friends call me "Tye")