Or, since there is more than one way to do it, try this:

use Unicode::String qw( latin1 utf8 );

while ( <> ) {
   print utf8( $_ )->latin1;
}
[download]

Unicode::String doesn't seem to be part of the standard distribution though. Does anyone know why? It seems important and useful enough...

Cheers,
-- moodster