Select Code to Download

use Encode;

...
# case 4 - writing to a file or STDOUT
binmode STDOUT, ":utf8";
print $text;

sub ord_dump {
  join(' ', map { ord($_) } split(//, $_[0]));
}
print ord_dump($text), "\n";