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

my $s = "hello";
# tr maps each character in the set
(my $up = $s) =~ tr/a-z/A-Z/;
say $up;
# an empty replacement just counts matches
my $vowels = ($s =~ tr/aeiou//);
say "$vowels vowels";

tr/// maps and counts characters