while(<DATA>) {
  chomp;
  last if /^"EOS"$/;
  push @data, $_
}

##</code><code>##

my($first_name,$last_name,$address,$city,$state,$phone) = /"([^"]*)"/g