warn"JustANoTHe' PERL-hick,\012";

##</code><code>##

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

##</code><code>##

print aADEFHIGJLKBObVQPSRXUTCW^q[+471f)'(>$.0o23#<s:96?&%]