my $okay = 1;
        eval {m/$regex/;};
        $okay =0 if $@;