simple translator:

use open IN => ':encoding(utf-16)', OUT => ':encoding(us-ascii)';
print while <>;
[download]

Of course, this breaks when there are characters which are not in the us-ascii character set. Perhaps you want to translate into utf-8 instead?