if(  my( $key, undef, $value ) = $line =~ /^(\w+)=(["'])(.*)\2$/) {
...