my @lines = split(/\n/, $datastring);
foreach my $line (@lines) {
  my ($key, $val) = split(/=/, $line);
}