sub decoded_content { my $self = shift; my $c; eval {$c = $self->SUPER::decoded_content(raise_error => 1)} && return $c; $c = $self->SUPER::decoded_content(charset => 'none'); $c = decode('utf8', $c, Encode::FB_PERLQQ()); $c =~ s/\\x\d{,2}//g; $c; }