Give this a shot.

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