in reply to extract problem

Why don't you grep first and awk the grepped output?

In Section Seekers of Perl Wisdom