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