$line = "SMTP:makeusbetter@domain.com%X400:c=US;a= ;p=domain ;o=domain;s=makeusbetter;%CCMAIL:makeusbetter at domain%";

if ($line =~ m/SMTP\:(.*)\%X400/) {
	print "Email address is: $1\n";
}