Public Pastes
Guest

Untitled

By: a guest on Jan 28th, 2012  |  syntax: None  |  size: 0.23 KB  |  hits: 17  |  expires: Never
download  |  raw  |  embed  |  report abuse
Copied
  1. use strict;
  2. use warnings;
  3. use Encode;
  4. use Devel::Peek;
  5.  
  6. my $subject = Encode::decode('latin1', "Sujet accentu\xe9");
  7. my $tmp = Encode::encode_utf8($subject);
  8. print $subject, "\n", $tmp, "\n";
  9. Dump $subject;
  10. Dump $tmp;
  11. exit;
create a new version of this paste RAW Paste Data