while (length($_)) {
$field = '';
for (;;) {
- $snippet = '';
- if (s/^"(([^"\\]|\\[\\"])*)"//) {
+ $snippet = '';
+ if (s/^"(([^"\\]|\\.)*)"//) {
$snippet = $1;
$snippet = "\"$snippet\"" if ($keep);
}
- elsif (s/^'(([^'\\]|\\[\\'])*)'//) {
+ elsif (s/^'(([^'\\]|\\.)*)'//) {
$snippet = $1;
$snippet = "'$snippet'" if ($keep);
}
last;
}
else {
- while (length($_) && !(/^$delim/ || /^['"\\]/)) {
+ while ($_ ne '' && !(/^$delim/ || /^['"\\]/)) {
$snippet .= substr($_, 0, 1);
substr($_, 0, 1) = '';
}