in reply to REGEX help
Free download of Dominus's "Higher-Order Perl" here.
Give a man a fish: <%-{-{-{-<