What are characters good for? 

use utf8;

binmode(STDOUT, ':utf8');

say ucfirst('ōtaki');

Ōtaki