if ($tainted =~ /^([ &:#-\@\w.]+)$/) {
   $tainted = $1; #data is now untainted
} else {
   # data is bad,  log this:
   print STDERR "[TAINT] Bad Data received as \$tainted \n";
}