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