or download this
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