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";