perl -ne 'print if /loop/../endloop/ and /warn/' file.txt