TOKEN1=value1
TOKEN2=value2
...

##</code><code>##

while(<>) {
  if (/^([A-Z_]+)=(.*)/) {
     my ($TAG,$VAL)=($1,$2);
     $conf{$1}=$2;
  }
}

##</code><code>##

%conf=(TOKEN1 => "value1",
       TOKEN2 => "value2")