Select Code to Download

#!/usr/bin/perl
use strict;
...
Phone:719-222-555
Street:1610 Happy AVE APT D
Zip: 81006

perl -n -e '$n = 4 if /^id:/; if ($n) { print; $n--; }' your_data_file