The command that you need here is printf for which there is an excellent tutorial on this site. eg.

printf ("(%03d) %03d-%04d", $field1, $field2, $field3)
[download]

 

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