if ($tainted =~ /\w{3}[\w.]*\@[\w.]+/)
     {
       $untainted = "$1\@$2";
     }