uniencode

   1 #!/usr/bin/perl
   2 # Ⅽоηνеrt аѕⅽіі tօ υtf‐8.
   3 use utf8;
   4 binmode STDIN, ":utf8";
   5 binmode STDOUT, ":utf8";
   6
   7 %Δ=(
   8 "~" => [],
   9 "!" => [],
  10 "@" => [],
  11 "#" => [],
  12 '$' => [],
  13 "%" => [8240],
  14 "^" => [],
  15 "&" => [],
  16 "*" => [10033],
  17 "(" => [],
  18 ")" => [],
  19 "_" => [9418],
  20 "-" => [8208],
  21 "+" => [],
  22 "=" => [],
  23 "[" => [],
  24 "]" => [],
  25 "{" => [],
  26 "}" => [],
  27 '\\' => [],
  28 "|" => [9475],
  29 '"' => [8223],
  30 "'" => [8217],
  31 ":" => [],
  32 ";" => [],
  33 "<" => [8249],
  34 ">" => [8250],
  35 "," => [],
  36 "." => [],
  37 "/" => [8260],
  38 "?" => [],
  39
  40 "1" => [],
  41 "2" => [],
  42 "3" => [1047],
  43 "4" => [],
  44 "5" => [],
  45 "6" => [],
  46 "7" => [],
  47 "8" => [],
  48 "9" => [],
  49 "0" => [1365],
  50
  51 "a" => [1072],                          "A" => [1040],
  52 "b" => [1068],                          "B" => [1042],
  53 "c" => [1089, 8573, 1010],              "C" => [663, 1057, 8557],
  54 "d" => [1281, 8574],                    "D" => [8558],
  55 "e" => [1077],                          "E" => [917, 1045],
  56 "f" => [],                              "F" => [988],
  57 "g" => [],                              "G" => [1292],
  58 "h" => [1210],                          "H" => [919, 1053],
  59 "i" => [1110, 8560],                    "I" => [921, 1030],
  60 "j" => [1011, 1112],                    "J" => [1032],
  61 "k" => [],                              "K" => [922, 1050],
  62 "l" => [8572],                          "L" => [8556],
  63 "m" => [8575],                          "M" => [924, 1052, 8559],
  64 "n" => [951, 627],                      "N" => [925],
  65 "o" => [1086, 1413],                    "O" => [927, 1054],
  66 "p" => [961, 1088],                     "P" => [929, 1056],
  67 "q" => [],                              "Q" => [],
  68 "r" => [],                              "R" => [],
  69 "s" => [1109],                          "S" => [1359],
  70 "t" => [],                              "T" => [932, 1058],
  71 "u" => [965],                           "U" => [],
  72 "v" => [957, 8910, 8964, 9013],         "V" => [947, 8548],
  73 "w" => [],                              "W" => [],
  74 "x" => [1093, 8569, 215],               "X" => [935, 1061, 8553],
  75 "y" => [1059, 1091],                    "Y" => [933],
  76 "z" => [],                              "Z" => [918],
  77 );
  78
  79 while (<>) {
  80         foreach $ם (split //) {
  81                 if (exists $Δ{$ם} && @{$Δ{$ם}}) {
  82                         @ה=@{$Δ{$ם}};
  83                         print chr($ה[rand @ה]);
  84                 }
  85                 else {
  86                         print $ם
  87                 }
  88         }
  89 }