I'm not quite sure what you are after but you will find that split //, $string will split the string making each character a separate element of the returned list.

 

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