use Mail::Message;

my $s = "Subject: hello\n\n1\n2\n";
my $msg1 = Mail::Message->read(\$s);