#!/usr/bin/perl
use warnings;
use strict;
use Encode qw(encode decode);

my $enc = 'utf-8'; # This script is stored as UTF-8
my $str = "úlcera\n";

# Byte strings:
print ucfirst $str; # prints 'úlcera', ucfirst didn't have any effect.

##</code><code>##

use utf8;
use strict;
use warnings;
use warnings FATAL => "utf8";
use feature "unicode_strings"; # or use v5.12 or superior
use open qw(:std :utf8);

print ucfirst("úlcera\n");

##</code><code>##

$ perl ultstertest
Úlcera

$ perl ulstertest | uniquote -x
\x{DA}lcera

$ perl ulstertest | uniquote -v
\N{LATIN CAPITAL LETTER U WITH ACUTE}lcera

$ perl ulstertest | uniquote -b
\xC3\x9Alcera