$field =~ s/[^\w.-]//g; # keep alpha, num, and "_.-"
   if ($field =~ /([\w.-]+)/) {
      $field = $1;
   }
   else {
      $field = undef;
   }
   # now $field is untainted