<msgs>
   any_errors      = err__
   prefix          = err_
   <constraints>
       OK_dn_unique  = Domain name already used within Citigroup
       OK_dn         = Badly formed domain name
       OK_words      = Illegal character in string
       OK_chars      = Illegal character or space in string
       OK_sql        = Illegal SQL character in string
       OK_phone_chars = Illegal phone character(s) or format
       OK_int        = Illegal integer
       OK_date       = Illegal date character(s) or format
       OK_email      = Illegal email format
   </constraints>
</msgs>

##</code><code>##

sub match_OK_phone_chars {
    my $val = shift;
    if ( $val =~ /^([-\d. \(\)]{10,}[extEX .-\d]*)$/    ) {
        return $1;
    }
    else { return undef; }
}