> Though most people would probably nest flip-flops:

Here a demonstration:

use strict;
use warnings;

my $count=0;


while (<DATA>) {
    if ( /^<13>/ .. /^END OF REPORT$/ ){
        if (/\*\sparameters after change\s\=/ .. /\*\sNRG location\s\=
+/) { 
            print "$count: $_";
        }
    } else {
        $count++
    }
}
__DATA__
<13>Nov 13 17:27:25 OamCOMM[12260]:
TIMESTAMP=Tue Nov 13 17:27:25 2018

MSGCLS=OAMOPE
Title=OAM Create OPERATION
Severity=Inform
message={username:xxxx@::xxxx:xxx.xxx.xxx.x;
 causeDISTINGUISH_NAME=epsProfileId=xxxxx,pSProfileDataId=x,subscripti
+onProfileD
+ataId=x,managedElementId=xxxx
USER_LABEL=
******************* parameters after change =*******************
epsMaxRequestedBandwidthUL=xxxxxxxxx
epsMaxRequestedBandwidthDL=xxxxxxxxx
epsQosAllocRetPrioVulnerabilit=xxxxxxx
epsQosAllocRetPrioCapability=xxxxxxx
epsQosAllocRetPrioLevel=xxxxxxxxx
epsQosClassId=xxxxxx
sessionTimeout=xxxxxxx
idleTimeout=xxxx
epsChargingCharacteristics=xxxxxx
epsVplmnDynamicAddrAllowed=xxxxxxxxxx
epsGwAllocType=xxxxxx
epsPdnType=xxxxxx
epsAccessPointName=xxxxxx.xxxxxxx
******************* NRG location =*******************
NRG_KEY=x
}
Message Id=10011
END OF REPORT

<13>Nov 13 17:27:25 OamCOMM[12260]:
TIMESTAMP=Tue Nov 13 17:27:25 2018

MSGCLS=OAMOPE
Title=OAM Create OPERATION
Severity=Inform
message={username:xxxx@::xxxx:xxx.xxx.xxx.x;
 causeDISTINGUISH_NAME=packetDataProtocolProfileId=xxxxx,gPacketProtoc
+olProfileD
+ataId=x,pSProfileDataId=x,subscriptionProfileDataId=x,managedElementI
+d=xxxx
USER_LABEL=
******************* parameters after change =*******************
meanThroughPutClass=xxxxxx
peakThroughPutClass=xxxxx
reliabilityClass=xxxx
delayClass=xxxx
precedenceClass=xxxxx
hSDPAguaranteeFlag=x
hSUPAguaranteeFlag=x
hSUPAflag=x
hSDPAflag=x
downlinkGuaranteedBR=xxx
uplinkGuaranteedBR=xx
trafficHandlingPriority=xxxxxxx
transferDelay=xx
ratioSduError=xxxx
residualBER=xxxx
downlinkMaxBR=xxx
uplinkMaxBR=xx
maxSduSize=xxx
deliveryOfErroneousSdu=xx
deliveryOrder=xx
trafficClass=xxxxxxxx
priorityOfUmtsBearer=xxxxxxx
vplmnAddressAllowedFlag=x
pdpChargingCharacteristic=xxxxxx
accessPointName=xxxxxx.xxxxxxx
pdpType=xxxx
******************* NRG location =*******************
NRG_KEY=x
}
Message Id=10011
END OF REPORT

[download]

Cheers Rolf
(addicted to the Perl Programming Language :)
Wikisyntax for the Monastery FootballPerl is like chess, only without the dice

In reply to Re^2: Extract Block Of Text From Log by LanX
in thread Extract Block Of Text From Log by ImJustAFriend

Title:
Use:  <p> text here (a paragraph) </p>
and:  <code> code here </code>
to format your post, it's "PerlMonks-approved HTML":


  • Posts are HTML formatted. Put <p> </p> tags around your paragraphs. Put <code> </code> tags around your code and data!
  • Titles consisting of a single word are discouraged, and in most cases are disallowed outright.
  • Read Where should I post X? if you're not absolutely sure you're posting in the right place.
  • Please read these before you post! —
  • Posts may use any of the Perl Monks Approved HTML tags:
    a, abbr, b, big, blockquote, br, caption, center, col, colgroup, dd, del, details, div, dl, dt, em, font, h1, h2, h3, h4, h5, h6, hr, i, ins, li, ol, p, pre, readmore, small, span, spoiler, strike, strong, sub, summary, sup, table, tbody, td, tfoot, th, thead, tr, tt, u, ul, wbr
  • You may need to use entities for some characters, as follows. (Exception: Within code tags, you can put the characters literally.)
            For:     Use:
    & &amp;
    < &lt;
    > &gt;
    [ &#91;
    ] &#93;
  • Link using PerlMonks shortcuts! What shortcuts can I use for linking?
  • See Writeup Formatting Tips and other pages linked from there for more info.