local( $/ );
$f{$_}++ for <> =~ /./gs;
for( sort keys %f ) {
    warn "$f{$_} ($_)s!\n"
        if  1 != $f{$_};
    print $_;
}