$phone =~ s/\(//g;
$phone =~ s/\)/-/g;