{
    no warnings 'redefine';

    my $decode_utf8_orig = \&Encode::decode_utf8;

    *Encode::decode_utf8 = sub {
        return $_[0] if ref $_[0];     # avoid mangling references.
        goto &$decode_utf8_orig;       # original behavior for normal scalars.
    }
}