It might be safer to add a limit to the split just in case there are more equals signs later in the line.

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

I hope this is of interest.