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