Thanks Perl Monks!

I decided to go with tye's State-Based model and it's working great. Thanks for all the suggestions!