#!/usr/bin/perl -w

use strict;
use warnings;

local $/ = undef;

my $string = <>;
my @array = split(//, $string);

my %hash;
foreach (@array) {
	if ($_ =~ /\w/) {
		$hash{$_}++;
	}
}

my @keys = sort keys %hash;

my $total;
foreach (values %hash) {
	$total += $_;
}

foreach (@keys) {
	printf "%s\t%d\t%.3f\n", $_, $hash{$_}, $hash{$_}/$total;
}

print "$total characters\n";