Is there any particular reason why you're not using existing solutions such as SQL::Parser ?

If there are (?), then what you need to do is parse the thing from left to right, collecting parts as you go, instead of trying to parse it all at once. A recursive algorithm would be good, or you could just go use existing parser-creators, like Parse::RecDescent or Parse::Yapp.

C.