use Encode qw( decode );
print $FH decode('cp1252', "... the string ...");