use strict;  
use warnings;  
use 5.012; 
 
my $in_name = 'data.txt'; 
my $out_name = 'results.txt'; 
 
 
open my $INFILE, "<:encoding(UTF-8)", $in_name 
    or die "Couldn't open $in_name: $!"; 
 
open my $OUTFILE, ">:encoding(iso-8859-2)", $out_name 
    or die "Couldn't open $out_name: $!"; 
 
while (my $line = <$INFILE>) { 
    print $OUTFILE $line; 
}

use strict;  
use warnings;  
use 5.012; 
 
use Encode; 
 
my $string = 'hello'; 
my $octets = encode("iso-8859-2", $string);

use strict;   
use warnings;   
use 5.012;  
  
use Encode;  
  
my $string = 'helloļ';  
my $octets = encode("iso-8859-2", $string); 
 
print "string >$string<   octets >$octets<";

my $string = 'helloļ';   
printf "%*vX", " ", $string; 
print "\n";