perl -MMIME::Entity -e 'print MIME::Entity->build(Encoding => "quoted-printable", Data     => "some text\n.\nmore text")->as_string;'