*chuckle* ... It's a pretty obvious solution so I would have been surprised if noone else came up with it - Think of the two of us as merely two monkeys at two typewriters breaking the statistical curve in a room of an infinite number of monkeys :-)

 

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