my $s = "€\r\n";
$s = unpack "A*", pack "A*", $s;