sub validate_phone_num {
   return eval {
      /^$/ or die "No number\n";
      ...
      $cleaned_up_num
   };
}