$buf =~ s/\G("(?:[^"\\]|\\.)*")//sg