>>722 Perl5 ｽﾏｿ、ﾋﾞｭｰﾜｰから書き込んだら丸数字の一部が文字化けしたのでﾌﾞﾗｳｻﾞから再書き込み

use feature qw{signatures say};
use utf8; binmode STDOUT => 'utf8';
use Encode 'encode';

sub f($s) {
　@s = split '', $s;
　%h = map{unpack('H*', encode('utf-8', $_)) => $_} @s;
　@i = reverse @c = sort keys %h;
　%o = map{$h{$c[$_]} => $h{$i[$_]}} 0..$#c;
　say map{$o{$_}} @s;
}

f 'HELLO WORLD';
f '⑨⑫⑦②⑤⑭⑰⑳㉔①⑩⑬㉒⑲④⑮⑪⑧㉓⑥③⑯㉑⑱';



実行結果
$ perl 21_722.pl
LOHHEW EDHR
⑯⑬⑱㉓⑳⑪⑧⑤①㉔⑮⑫③⑥㉑⑩⑭⑰②⑲㉒⑨④⑦