#1    do {
#2    $firstline=<FILE>;
#3    ($name, $value)=split(/=/, $firstline);
#4    $value =~ s/^\s+//;
#5    $value =~ s/\s+$//g;
#6    $value =~ s/\n//g;
#7    print "$name\=$value\n";
#8    $data{$name}=$value;
#9    } while    $.<5;