use strict;
use warnings;
use Encode qw(encode decode);
use IO::File;

my $fh = IO::File->new;
$fh->open('datei', O_RDWR|O_BINARY) or die $!;

read($fh, my $octets, -s $fh);

# oktetten zu strings, decode, encode
my $binary = encode('UTF-8', decode('ISO-8859-2', $octets) );


$fh->seek(0,0);
$fh->truncate(0);

$fh->print($binary);

# und hier könnte man $fh an FTP übergeben