if ($line =~ /%(.*)\s*=\s*(.*)/);