#! /usr/bin/perl

@cleaned = (
        #0      1       2       3       4       5       6       7
        " ",    " ",    " ",    " ",    " ",    " ",    " ",    " ",
        #8      9       10      11      12      13      14      15
        " ",    " ",    " ",    " ",    " ",    " ",    " ",    " ",
        #16     17      18      19      20      21      22      23
        " ",    " ",    " ",    " ",    " ",    " ",    " ",    " ",
        #24     25      26      27      28      29      30      31
        " ",    " ",    " ",    " ",    " ",    " ",    " ",    " ",
        #32     33      34      35      36      37      38      39
		#20x
        " ",    "!",    "\"",   "#",    "\$",   "%",    "&",    "'",
        #40     41      42      43      44      45      46      47
        "(",    ")",    "*",    "+",    ",",    "-",    ".",    "/",
        #48     49      50      51      52      53      54      55
		#30x
        "0",    "1",    "2",    "3",    "4",    "5",    "6",    "7",
        #56     57      58      59      60      61      62      63
        "8",    "9",    ":",    ";",    "<",    "=",    ">",    "?",
		#40x
        #64     65      66      67      68      69      70      71
        "@",    "A",    "B",    "C",    "D",    "E",    "F",    "G",
        #72     73      74      75      76      77      78      79
        "H",    "I",    "J",    "K",    "L",    "M",    "N",    "O",
        #80     81      82      83      84      85      86      87
		#50x
        "P",    "Q",    "R",    "S",    "T",    "U",    "V",    "W",
        #88     89      90      91      92      93      94      95
        "X",    "Y",    "Z",    "[",    "\\",   "]",    "^",    "_",
        #96     97      98      99      100     101     102     103
		#60x
        "`",    "a",    "b",    "c",    "d",    "e",    "f",    "g",
        #104    105     106     107     108     109     110     111
        "h",    "i",    "j",    "k",    "l",    "m",    "n",    "o",
        #112    113     114     115     116     117     118     119
		#70x
        "p",    "q",    "r",    "s",    "t",    "u",    "v",    "w",
        #120    121     122     123     124     125     126     127
        "x",    "y",    "z",    "(",    "|",    "}",    "~",    " ",
        #128    129     130     131     132     133     134     135
		#80x
        " ",    " ",    ",",    "f",    " ",    "...",  " ",    " ",
        #136    137     138     139     140     141     142     143
		#88x
		"^",    " ",    "S",    "<",    "OE",   " ",    " ",    " ",
        #144    145     146     147     148     149     150     151
		#90x
        " ",    "'",    "'",    "\"",   "\"",   "*",    "-",    " -- ",
        #152    153     154     155     156     157     158     159
		#98x
        "~",    " ",    "s",    ">",    "oe",   " ",    " ",    "Y",
        #160    161     162     163     164     165     166     167
		#A0x
        " ",    " ",    " ",    " ",    " ",    " ",    " ",    " ",
        #168    169     170     171     172     173     174     175
		#A8x
        " ",    "(c)",   " ",    "<<",   " ",    "-",    "(R)",    " ",
        #176    177     178     179     180     181     182     183
		#B0
        "o",    "+/-",  "2",    "3",    "'",    "mu",   " ",   " ",
        #184    185     186     187     188     189     190     191
		#B8x
        " ",    "1",    "0",    ">>",   "1/4",  "1/2",  "3/4",  " ",
        #192    193     194     195     196     197     198     199
		#C0x
        "A",    "A",    "A",    "A",    "A",    "A",    "AE",   "C",
        #200    201     202     203     204     205     206     207
        "E",    "E",    "E",    "E",    "I",    "I",    "I",    "I",
        #208    209     210     211     212     213     214     215
		#D0x
        "H",    "N",    "O",    "O",    "O",    "O",    "O",    "x",
        #216    217     218     219     220     221     222     223
        "O",    "U",    "U",    "U",    "U",    "Y",    "TH",   "sz",
        #224    225     226     227     228     229     230     231
        "a",    "a",    "a",    "a",    "a",    "a",    "ae",   "c",
        #232    233     234     235     236     237     238     239
        "e",    "e",    "e",    "e",    "i",    "i",    "i",    "i",
        #240    241     242     243     244     245     246     247
        "h",    "n",    "o",    "o",    "o",    "o",    "o",    "/",
        #248    249     250     251     252     253     254     255
        "o",    "u",    "u",    "u",    "u",    "y",    "th",   "y",
        );

sub cleaned { # text
    local ($text) = (@_);
    $text =~ s/(.)/$cleaned[ord($1)]/ge; # this may also remove non-Latin
    return ($text);
}

while (<>) {
	$text = $_;
	$text = cleaned($text);
	print $text;
}