While I was not expecting working code off my pseudo... you gave, and it works.

I made the following mods --

Substituted grep with a straightforward loop through the array and return 1 when compare is successful. This significantly improved the performance.

Removed ::Simple to get to HTML::TokeParser directly (my webhost doesn't have H::T::S installed, and I didn't want to bother them... besides, perhaps getting to the base module directly perhaps squeezes out a little bit more performance.

It works, and all thanks and credit to you.