my %headers = map split(/: /, $_, 2), @headers;
my ($from, $subject) = @headers{qw( From Subject )};