#!/usr/bin/perl -000 while (<>) { next unless m/font type:\s+Character Cell/; next unless m/QUAD_WIDTH\s+10\b/; next unless m/PIXEL_SIZE\s+20\b/; print; }