Anonymous Monk has asked for the wisdom of the Perl Monks concerning the following question:

I have a large file (about 67,000 lines of data).
I would like to delete the lines that do not have a certain pattern in them, and write the remaining lines to a new file.
Any ideas about how I might do this?

Thanks in advance