use 5.010_000;

while ( $string =~ /(?<variable>\w+)=(?<delim>['"])(?<value>.*?)\k<delim>/g) {
    say "$+{variable} = $+{value}";
}