Как заменить строки с возвратом каретки в perl?

Question

Как я могу найти и заменить эти две строки в стене текста ниже?

wall of text
    authorize {
            update request {
            }
wall of text          

Я пробовал это, но это не сработало. Проблема с возвратом каретки.

perl -p0e  "s/authorize \{\nupdate request \{//" ~/test

Answer 1

попробуйте это:

perl -p0e "s/\s*authorize \{\n\s*update request \{\n\s*\}//o" ~/test