Shell Programming and Scripting

perl -MData::Dumper -e 'while(<>) { chomp; foreach(split //,$_) { $hash{$_}++ } } print Dumper(\%hash);'

 
my $input = '1234';
my $result = grep /./,split(//,$input);
print $result;

 
my $input = '1234';
my @result;
my $result = @result = $input =~/./g;
print $result;

% perl -le'
  $string = "asadadsadadsaddadsdaddadsadweqcxzcw";
  $_{$_}++ for $string =~ /./g;  
  print $_, " -> ", $_{$_} for sort keys %_;
  '                              
a -> 10
c -> 2
d -> 12
e -> 1
q -> 1
s -> 5
w -> 2
x -> 1
z -> 1