Just in addition to VSarkiss' excellent explanation, I thought I would just add that this is discussed in the perlrun man page, specifically under the -S switch.

 

perl -e 's&&rob@cowsnet.com.au&&&split/[@.]/&&s&.com.&_&&&print'