unless ($FORM{'phone'} =~ /\s*\(*\)*\.*\d+\-*\s*/) {