# Eek. This matches the next (optionally double-quoted) string on the line.
my $stringre = qr/\s*("(?:[^\\]|\\.)*?"|(?:[^\\]|\\.)+?)(?:\s|$)/;
# Eek. This matches the next (optionally double-quoted) string on the line.
my $stringre = qr/\s*("(?:[^\\]|\\.)*?"|(?:[^\\]|\\.)+?)(?:\s|$)/;