in reply to PERL TO SPLIT BIGFILE;SAVE TEXT EXTRACTS TO SEPERATE FILES

dir *.log
File Not Found

type junk.dat
WinSolve log file created
@
@ gRSH1p_u @@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@
@
[TRUNCATED SUBSECTION TEXT]
@
Exit
@
WinSolve log file created
@
@ gOILp_u @@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@
@
[TRUNCATED SUBSECTION TEXT]
@
Exit
@
WinSolve log file created
@
@ gTRX1p_u @@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@
@
[TRUNCATED SUBSECTION TEXT]
@
Exit

perl -e"BEGIN{$/='Exit'}" -nwle"($n)=m[@ (\S+) @] or next;$n.='.log';o
+pen O,'>',$n; print O $_;close O" junk.dat

dir *.log
12/01/2012  16:28               133 gOILp_u.log
12/01/2012  16:28               129 gRSH1p_u.log
12/01/2012  16:28               134 gTRX1p_u.log

type gOILp_u.log

@
WinSolve log file created
@
@ gOILp_u @@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@
@
[TRUNCATED SUBSECTION TEXT]
@

[download]
With the rise and rise of 'Social' network sites: 'Computers are making people easier to use everyday'
Examine what is said, not who speaks -- Silence betokens consent -- Love the truth but pardon error.
"Science is about questioning the status quo. Questioning authority".
In the absence of evidence, opinion is indistinguishable from prejudice.

The start of some sanity?

In Section Seekers of Perl Wisdom