perl -wMstrict -e
"my $str = 'aabceezazerrfde';  my %values = qw(a 7  e 2  z 26);
print scalar map { (0) x $values{$_} } grep exists $values{$_}, split 
+'', $str;"
81
[download]