I am not a Perl Master, but if your data is really structured like you said you can key of the spacing/tabing for the list items and ignore the sub items using /^\t\<li\> or whatever the spacing is. Clearly this is kludgey, but this can work in a pinch...