for what i understood, you are going not to make some regexp test around, but there is more logic within.

have you ever considered Parse::RecDescent? you can use regexp for matching, and it's grammar for your logic.

Oha