print "Enter an input string: "; chomp (my $str = <STDIN>); print "Input String: $str\n"; my $cnt = @{[$str =~ /./sg]}; print "Total characters (including spaces & punctuation): $cnt\n"; print "Unique Characters (including spaces & punctuation): \n";
In reply to Unique Character by Latnam
| For: | Use: | ||
| & | & | ||
| < | < | ||
| > | > | ||
| [ | [ | ||
| ] | ] |