http://www.perlmonks.org?node_id=1073918


in reply to Re: How to print the actual bytes of UTF-8 characters ?
in thread How to print the actual bytes of UTF-8 characters ?

open my $BYTE, '>:utf8', \my $bytes; print {$BYTE} $char;? utf8::encode(my $bytes = $char);!