Select Code to Download

open(FILE, '<', 'file.txt');
# binmode(FILE,":utf8");
...
print encode_entities(Dumper($content));
print '</pre>';
print $content;

$VAR1 = "f\303\266\303\266\n";

föö

open(FILE, '<', 'file.txt');
binmode(FILE,":utf8");
...
print encode_entities(Dumper($content));
print '</pre>';
print $content;

$VAR1 = "f\x{f6}\x{f6}\n";

föö

open(FILE,"<:utf8", "$file");
binmode(FILE);