On Tue, 2018-07-10 at 17:50 +0200, Geert Uytterhoeven wrote:
> So I can use MIME::QuotedPrint?

How about 

use Encode;
[]
        if (decode("MIME-Header", $line) =~ /^from:\s*(.*)/i) {
etc...

Reply via email to