#1 about 7x speedup,

[Joel Martin]

fixed minor bug on file test that excluded any files from being examined.
switch to tr/ for q changes, will be fastest on most systems,
added commented out substr method if you really hate the tr method, it's still faster than original.
whoever originally told people to do @array = split //, $string is a mean person.

[Joel Martin]