sub validate{
    my $pat = shift;
    return if $pat =~ /\(\?{1,2}\{/;
    return eval{qr/$pat/};
}