$adr = "User@domain.com";
@ads = split(/@/,$adr);

##</code><code>##

$sub = $adr;
$sub =~ s/@/\@/;