if ( $conphone =~ /(\d{3})-(\d{3})-(\d{4})/ ) {
     print "Phone: $conphone<br />\n";
} else {
     print "BAD PHONE!!!! BAD PHONE!!!!<br />\n";
}