Help for this page

Select Code to Download


  1. or download this
    $ perl -MDevel::Peek -MEncode=_utf8_on,_utf8_off,encode -e'
    _utf8_on( my $x = "\200\201" );  # Invalid UTF-8
...
  PV = 0x81623f0 "\200\201"\0
  PV = 0x81920f8 "\357\277\275\357\277\275"\0
  PV = 0x81ff040 "\200\201"\0
  2. or download this
    $ perl -MDevel::Peek -MEncode=_utf8_on,_utf8_off,encode -e'
    my $x = "\200\201";
...
  PV = 0x816b608 "\302\200\302\201"\0
  PV = 0x8195050 "\302\200\302\201"\0
  PV = 0x81ff038 "\200\201"\0