sub ValidPhone {
  ($phone)=@_;
  if($phone =~ m/^[\d()-\.]+$/) {
    $phone  =~ s/[\D]*//g;   
        if($phone =~ m/\d{7,11}/) {
      return 1;
        }
  } else {
    return 0;
  }
  return 0;
}
[download]