my %names_emails = map { /^(?:From|To): (\S+) (\S+)/ } @data;