use Encode;
$, = "\n";
print unpack "U*", decode_utf8 "€äöü";