how to clean a wrong email format

Please help me to clean an email from junks. I have to delete the junks after "@" and before "@". What functions to build to clean the junks in one go to bring the corect email? Here is the junks that i have to delete before "@" and after "@":