perl -e 's&&rob@cowsnet.com.au&&&split/[@.]/&&s&.com.&_&&&print'
In reply to Re: Re:x2 Renaming Sub Dir/Files. by rob_au in thread Renaming Sub Dir/Files. by JoeCool