use Modern::Perl;

my $string = "Perl Monks Rocks!!!";
my %chars;

for ( split '', $string ) { $chars{ lc $_ }++ }

my @uniques = sort keys %chars;

say scalar @uniques, ": @uniques";