Select Code to Download

#!/usr/bin/perl
use warnings;
...

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

use utf8;
use strict;
...
use open qw(:std :utf8);

print ucfirst("úlcera\n");

$ perl ultstertest
Úlcera
...

$ perl ulstertest | uniquote -b
\xC3\x9Alcera