...
  if ($line =~ /^(\w+)=(["'])(.*)\2$/) {
    my $key   = $1;
    my $value = $3;
    ...
  }