Help for this page

Select Code to Download

Select or download this
```
split /(?:$key_pat=)?$val_pat\K,/
```

Select or download this

use 5.010;  # /\K/

...
my $val_pat = qr/"[^"]+"|(?:[^\\,]|\\[\\,])*/;

print Dumper [ split /(?:$key_pat=)?$val_pat\K,/, $str ];