Not surprisingly, merlyn has already written something that allows only a single instance of a script, aptly named Highlander. There can be only one!

 

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