my $msg = Mail::Message->read($data);
   my @addr = $msg->get('To')->addresses;