Kenosis has given you some clues (using a hash) on how to count each different character. For the total character count, your approach:

my $cnt = @{[$str =~ /./sg]};
[download]

probably works, but seems too complicated (and slow, when that matters). Take a look a the length function.