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