{
   open my $FH, ">:encoding(iso-8859-2)", 'file_iso-8859-2.txt'
      or die "$!\n";
   print $FH $content;
}
{
   open my $FH, ">:encoding(utf-8)", 'file_utf-8.txt'
      or die "$!\n";
   print $FH $content;
}