matching multiple line string with perl regex and doing a replace

Question

I have a source file where I use a macro to do logging. Typical logging lines look like:

STDOUT_LOG(logDEBUG4) << \"a single line log text\" << aVari         


        

Answer 1

You can use a regex like this with s (single line flag):

\).*?<<(.*?);

And the replacement string:

, \1);

Working demo