If your files aren't enormous, you can dump them line by line in an array, and then parse through that. Then it's easy to go back (or forward) a few lines.

If your file are big, you can replace the array transparently with Tie::File.