use strict;
use warnings;
use 5.010;
use MIME::WordDecoder;
use open ':encoding(utf8)';
use open ':std';

my $wd = supported MIME::WordDecoder "iso-8859-1";
for my $enc (
    '=?iso-8859-1?Q?Communiqu=E9?=', '=?iso-8859-1?Q?Telef=F3nica?=',
    '=?ISO-8859-1?Q?Montre=E1l?=',   '=?iso-8859-1?Q?Minist=E8re?='
  )
{
    say $wd->decode($enc);
}

__END__
Communiqué
Telefónica
Montreál
Ministère

##</code><code>##

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($_);
}