Select Code to Download

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