Ok... so some things I see that you all are talking about...

1. I need to have better naming of vars.

2. My class design is not very good. That is my first attempt at OOPerl. I will read the perltoot again. I made the object with Class::Struct ... is that a good idea?

3. The anonymous sub thing would be better with a do block.

4. Don't run multiple greps... use "and" instead.

5. Keep reading perlmonks.org so I can get stronger with this terrific language.

Did I miss anything?

Thanks for the insight all. I really appreciate your guidance.

Prost,
Moe