similar to some of the above requests, but how about a quick and easy:

print number_of_uniques('ppppppperlguy') . "\n";

sub number_of_uniques {
   my %s;
   return scalar (grep !$s{$_}++, split '', $_[0]);
}
[download]