Select Code to Download

sub untaint_username {
   my $str = shift;
   $str =~ s/[\W_]//g;  # remove all non word characters (incl. unders
+core)
...
      return 'failure!';
   }
}