use Encode qw/encode decode/;
my @strings = ("\xe4ll your chars","\xe5re belong to", "\xf6s");
$_ = encode("iso-8859-15", ucfirst(decode("iso-8859-15",$_))) for @strings;