in reply to Re^5: looking for speed!! large file search and extract
in thread looking for speed!! large file search and extract

c:\> perl -n -e "print if /^PARTNAME/ && /PARTNAME$/ && $last; $last =
+ /^xyzdf/ && /xyzdf$/ ? $_ : ''" file1>file2
# file2:
#PARTNAMEhjjhhjhjkjkjkjkjPARTNAME
#PARTNAMEhjjh88888888888jkjkjkjkjPARTNAME
#PARTNAMEhjjh8888iiiiiiiiiiiii888jkjkjkjkjPARTNAME

[download]
Update: This will also match lines like: 
xyzdf
PARTNAMEXXXXPARTNAME

[download]
if that is unwanted you should use: 
c:\> perl -n -e "print if /^PARTNAME/ && /PARTNAME$/ && $last; $last =
+ /^xyzdf/ && /.xyzdf$/ ? $_ : ''" file1>file2

[download]

In Section Seekers of Perl Wisdom