Anonymous,

It might make more sense to use iconv, a command created to do exactly what you want. Likely, simply invoking it at your shell will accomplish what you need, after setting the proper parameters.

Text::Iconv would let you access that functionality from Perl.

Take a look here and see if this tool does what you need. If you need further help, please update your question with more details and/or code you've tried.