use strict;
use warnings;
use 5.010;
use open ':utf8';
use open ':std';

use MIME::Words qw(:all);

my @encoded = (
    '=?iso-8859-1?Q?Communiqu=E9?=', '=?iso-8859-1?Q?Telef=F3nica?=',
    '=?ISO-8859-1?Q?Montre=E1l?=',   '=?iso-8859-1?Q?Minist=E8re?=',
);
for (@encoded) {
    say scalar decode_mimewords($_);
}