m/^id:/ .. m/^Zip:/ and print while (<INFILE>);