Global Replace Email Address With Perl

Question

I try to use perl to global replace the email address in my shell scripts but it seems perl can not replace if there is @ character.

Part of my shell script:

M