while ( <$inFH> )
{
    chomp;
    my ($k, $v) = split /\s*=\s*/, $_, 2;
    ...
}