my ($key, $val) = split /\s*=>\s*/, $text, 2;
$Data{$key} = $val;