in reply to Better way to get the results of grep()?
my %headers = map split(/: /, $_, 2), @headers; my ($from, $subject) = @headers{qw( From Subject )}; [download]