while(){ $values{$1}=$2 if(/^(\w+)\s*=\s*(\w+)$/); }