use strict;
use warnings;

my $emailaddress='xung03@aol.com To: xung03@aol.com From: xung03@aol.com Subject: Hog(DA913529,email) JmW yB Q eoP . => xung03@aol.com To: xung03@aol.com From: xung03@aol.com Subject: Yq(DA913529,name)RiatdJ VoyY41ILqAdOjfxkvfKaH8JMobcYw . ::xung03@aol.com To: xung03@aol.com From: xung03@aol.com Subject: 9joI(DA913529,add1)e6WS1maM J . ::xung03@aol.com To: xung03@aol.com From: xung03@aol.com Subject: U84QoU(DA913529,add2)wIfhxuNg 97ob4Cn3k0VauKEoM74hIYt . ::xung03@aol.com To: xung03@aol.com From: xung03@aol.com Subject: qI6(DA913529,city) XN8s Akd xjLmZqTf0s15E4688jkblKj . ::xung03@aol.com To: xung03@aol.com From: xung03@aol.com Subject: (DA913529,zip)Pxia 3i HvHE0tfDHxxSf0CF6W Kyi0WHeieL BZBAFcszbJGEgO1ha::';

my ($good_address, $rubbish) = split /[ ,]/, $emailaddress, 2;

print $good_address;