Modify working PERL script

I NEED help with a script hosted here: [login to view URL] I've managed to get it working, but I need a change in the script for the following: because of the way the mail server is setup, there's a problem with email recovery. For example, when running the script I get this line: 2013/09/04 22:40:32 Sending message 23403038 (From info(replace with at symbol)[login to view URL] to fontalor.com-fontalor(replace with at symbol)[login to view URL]) which is perfect, BUT I need the recipient email to be corrected in the following way: the actual structure is: domain.ext-mailbox(replace with at symbol)[login to view URL] and I need it to be: mailbox(replace with at symbol)[login to view URL] I'll leave you a couple of examples to make it clearer: 2013/09/04 22:40:32 Sending message 23403038 (From info(replace with at symbol)[login to view URL] to fontalor.com-fontalor(replace with at symbol)[login to view URL]) the recipient should be fontalor(replace with at symbol)[login to view URL] 2013/09/04 22:40:32 Sending message 23403061 (From emmkv2b(replace with at symbol)[login to view URL] to jhdezbanon.com-jhdezbanon(replace with at symbol)[login to view URL]) the recipient should be jhdezbanon(replace with at symbol)[login to view URL] 2013/09/04 22:40:32 Sending message 22351984 (From [login to view URL](replace with at symbol)[login to view URL] to veconsa.net-veconsa(replace with at symbol)[login to view URL]) the recipient should be veconsa(replace with at symbol)[login to view URL]