Help for this page

Select Code to Download

Select or download this

use Encode;

...

$utf8_str =~ tr/\x{fffd}//d;

Select or download this

open( INPUT, "<:encoding(cp1252)", $filename ) or die $!;

...
while (<INPUT>) {
    # $_ contains utf8 data...
}