Select Code to Download

while(my $inp = <DATA>) {
  my ($name,$ph,$addr,$date,$num) = split(/:/,$inp);
...
  my $conv = s/CA,/California/;
  print "$st\n";
  }}

Tommy Savage:408–724–0140: 12 2 2 Oxbow Court, Sunnyvale, CA 94087: 5/
+19/66: 34200
Lesle Kerstin: 408–456–123 4: 4 Harvard Square, Boston, MA 
...
34756: 10/2/65: 35200
Barbara Kerz:385–573 –8326: 83 2 Ponce Drive, Gary, IN 
83756: 12/15/46: 268500