$ perl -E " use Text::Unidecode;  say unidecode( qq{\x4d\x6f\x6e\x74\x72\xc3\xa9\x61\x6c} )"
MontrA(c)al

$ perl -E " use Text::Unidecode;  use Encode; say unidecode( decode_utf8( qq{\x4d\x6f\x6e\x74\x72\xc3\xa9\x61\x6c}))"
Montreal