use strict;
use warnings;
use feature 'say';

my $s = "hello";
say uc $s;        # HELLO
say ucfirst $s;   # Hello
my $loud = "WORLD";
say lc $loud;     # world

uc, lc, ucfirst