use re qw( is_regexp );
is_regexp($check_re)

##</code><code>##

BEGIN {
   eval 'use re qw( is_regexp )';
   if (!defined(&is_regexp)) {
      my $re_class = ref qr//;
      *is_regexp = sub($) {
         local *__ANON__ = 'is_regexp';
         return UNIVERSAL::isa($_[0], $re_class);
      };
   }
}

is_regexp($check_re)