Select Code to Download

use utf8;
use Devel::Peek;
...
use bytes;
print length($x);
__END__

SV = PV(0x15d5584) at 0x1a45848
  REFCNT = 1
...
  CUR = 2
  LEN = 3
2

use utf8;
use Devel::Peek;
...
use bytes;
print length($x);
__END__

SV = PV(0x15d5584) at 0x1a45848
  REFCNT = 1
...
  CUR = 1
  LEN = 2
1

use utf8;
use Devel::Peek;
...
use bytes;
print length($x);
__END__

SV = PV(0x15d5584) at 0x1a4583c
  REFCNT = 1
...
  CUR = 2
  LEN = 80
2

use utf8;
use Devel::Peek;
...
use bytes;
print length($x);
__END__