Select Code to Download

use utf8; # expect UTF-8 text in this source code
use open qw(:std :encoding(UTF-8)); # do UTF-8 encoding on I/O and STD
+*

  00000000  c3 83 c2 85 6b 65 20 4c  69 6e 64 73 74 72 c3 83  |....ke 
+Lindstr..|
  00000010  c2 b6 6d                                          |..m|

#!/usr/bin/env perl
use v5.40;
...
    say "Binary:      ", join ' ', (unpack "H*", $str) =~ m/../g ;
    say "Text>STDOUT: $str";
}