Select Code to Download

use utf8;
use open ':std', :locale';
my $s = "fête";
print("$_\n") for unpack '(a3)*', $s;