use Encode qw(:all);
my $c = chr 0xC9;               # 1 Byte haben wir
from_to($c ,'Latin1', 'utf-8'); # ergibt nun 2 Bytes
print $c;                       # diese 2 Bytes ausgeben