require MIME::QuotedPrint; my $dec = MIME::QuotedPrint::decode_qp('=E2=9C=A9'); require HTML::Entities; say HTML::Entities::encode_entities($dec);