uniencode

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