#!/usr/bin/perl                                                                                               
use strict;
use warnings;
use Encode qw( );

my $orig = "\xE8\xAB\x86\x0A";
utf8::encode( my $enc_once = $orig );

utf8::decode( $enc_once );
print('length after first decode= ', length($enc_once), "\n");
utf8::decode( $enc_once );
print('length after second decode= ', length($enc_once), "\n");

# do it again but don't check the intermediate length
utf8::encode( $enc_once = $orig );

utf8::decode( $enc_once );
utf8::decode( $enc_once );
print('length after second decode= ', length($enc_once), "\n");