while(<>) { ($key, $value) = split(/==/); $hash{$key} = $value; }