sub re_valid_test {
    my $re = eval { qr/$_[0]/ };
    defined($re) ? 1 : 0 ;
}