Select Code to Download

if ( $vlan_name =~ m|^\w[\w-]*$| ){
  # Name complies with :
...
}else{
  # Complain about non-compliant name
}

 if ($vlan_number =~ m|^\d+$|) {
     # Compliant - numeric only
  }else{
    # Something Not completely numeric - display error.
  }