# valid number
unless ($FORM{'phone'} =~ /^\d+[\s\d-\(\)\.]+$/) {
   die "Bad phone";
}

#valid ext, if it exists
unless ($FORM{'ext'} =~ /^\d+$/) {
   # don't die if zero-length!
   die "Bad ext" if length($FORM{'ext'});
}