in reply to Replacing between patterns

$ echo "123
ABC
123
abc
XYZ hi
la" | perl -0777pe 's/ABC(?s:.*?)XYZ.*/[DATA]/'
123
[DATA]
la

[download]

Replies are listed 'Best First'.
Re^2: Replacing between patterns
by rsFalse (Chaplain) on Oct 29, 2019 at 13:25 UTC
    Similarly, but with /m and $:
    echo "123
ABC
123
abc
XYZ hi
la" | perl -0777 -pe 's/ ABC .*? XYZ .*? $ /[DATA]/msx'
123
[DATA]
la

    [download]
[reply]
[d/l]
[select]

In Section Seekers of Perl Wisdom