Sounds like what Text::Query and friends do nicely. Either use that code, or study and steal from there.

-- Randal L. Schwartz, Perl hacker