- or download this
quoted_string: '"' m{(([\\]"|[^"])*)} '"'
{
...
$item[2] =~ s{\\\\}{\\}g; # Unescape backslashes
$item[2];
}
- or download this
quoted_string: <perl_quotelike>
{
...
}
# etc...
}
- or download this
A1 mean(B1:B10) &&
A2 "Something innocuous" &&
A3 C1/C2 &&
A4 qq(Oh dear @{[ system 'rm -rf *' ]})