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

my $isolatin = "éčę";

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

my $upper = uc $unicode;

print $upper;   # ÉČĘ