in reply to Frequency Analyzer
Your s/// for converting characters to lowercase is far too much work, and the use of $& is poisonous. I'd use the lc() function.
japhy -- Perl and Regex Hacker
And you're using substr() where chop() would do, and probably where you could just use split().
Is how I would optimize your input loop.while (<STDIN>) { $count{$_}++ for split //, lc; }
japhy -- Perl and Regex Hacker
In Section
Code Catacombs