i dunno if this quite applies, but i work with logs that i usually pump into arrays. these logs have a lot of garbage, so i wrote a quick subroutine to basically shift off lines i don't care about until i find what i'm looking for.

so assuming you have no problem extracting the text you wanna look at, you can use something like this:

sub shift_until($\@) 
{
#usage: shift_until($somepattern, @list);
#this takes a @list and throws away lines until it hits $pattern
#$pattern can be a regexp.
#if $pattern isn't found, the list is emptied completely.
#it's good for parsing through garbage
#(hey, i never said it would be useful to everybody)
    my $pattern = shift;
    my $array_ref = $_[0];
    while (@$array_ref and not $$array_ref[0] =~ /$pattern/) 
    {
        shift @$array_ref;
    }
    (@$array_ref and return 1) or return 0;
}
[download]

this could easily be modified to non-destructively seek to a position in the array, or to use a file instead of an array, ad nauseum.