Can anyone give me tips what else I can do

#!/usr/bin/perl -wl
use strict;
use Encode;

my $isolatin = "éèê";

my $unicode = decode('ISO8859-15', $isolatin);

my $upper = uc $unicode;

print $upper;   # ÉÈÊ
[download]