my $string = qq|sean\@gmail.com, "richard" <richard\@gmail.com>, "john" <john\@gmail.com>, <jack\@gmail.com>|;