Select Code to Download

$ perl -MDevel::Peek -we'my $buf = "\x80"; open my $fh, "<:utf8", \$bu
+f or die; my $x = <$fh>; Dump $x;'
utf8 "\x80" does not map to Unicode at -e line 1, <$fh> line 1.
...
 [UTF8 "\x{0}"]
  CUR = 1
  LEN = 80

$ perl -MDevel::Peek -we'my $buf = "\x80"; open my $fh, "<:encoding(UT
+F-8)", \$buf or die; my $x = <$fh>; Dump $x;'
utf8 "\x80" does not map to Unicode at -e line 1.
...
  PV = 0x8197048 "\\x80"\0 [UTF8 "\\x80"]
  CUR = 4
  LEN = 80