Select Code to Download

while (my $line = <DATA>) {
        #if ($line =~ m!^(\d+)\s+(([A-Za-z]+\s+[A-Za-z].\s+[A-Za-z]+)|
+([A-Za-z]+\s+[A-Za-z]+) )!) {
...
178 Edgar Jones Jr. 18013 Highfield Road Ashton Ma 20861 323-774-1339 
+no detail
161 Joyce W. Whang 18 Long Point Lane Media PA 19063 610-891-2344 no d
+etail
188 Alex Smith 1979 Biltmore St NW Apt B Washington DC 20009 202-913-6
+685 no detail

# perl re

...
$5: DC 
$6: 20009 
$7: 202-913-6685