How would I do this if I were to translate a whole file?

I tried:

use Unicode::String qw(utf8 utf16 latin1);
Unicode::String->stringify_as("utf8");

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

But that did nothing...

Anyway, that you have ø for ø seems to imply that I do have the correct characters, since that is what I see for ø too...