my %name2email;
while (<DATA>) {
	next unless m/^(?:To|From|Reply-To): (\S+)\s+<?([^\s>]+)/;
    $name2email{$1} = $2;
};