Have you looked at the examples that come with P::RD?

My cfperl project contains a pretty complex two-level P::RD parser.

Ted