I have a file that looks like this740*02/01/2016*00:00*EJ LOG COPIED OKAUTO INIT COPY DRIVE NOT CONFIGUREDE1EF3901[020t*741*02/01/2016*05:45*     *TRANSACTION STARTED*[020t CARD INSERTED[020tCARD: *************5845DATE 01-02-16    TIME 05:45:52 05:46:26 GENAC 1 : ARQCEXTERNAL AUTHENTICATE: NO ARPC 05:46:30 GENAC 2 : AAC 01 FEB 2016     05:47:41      10160021     WITHDRAW     FROM XXXXXXXX    ?INVALID TRANSCATION ON TERMINAL.-----------------------[020t 05:47:05 CARD TAKEN[020t 05:47:07 TRANSACTION END[0r(1)2[000p[040qe1w3h162[020t*742*02/01/2016*05:47*     *TRANSACTION STARTED*[020t CARD INSERTED[020tCARD: *************2584DATE 01-02-16    TIME 05:47:27 05:48:00 GENAC 1 : ARQC 05:48:05 GENAC 2 : TC[020t 05:48:16 CARD TAKEN[020t 05:48:22 NOTES PRESENTED 0,0,2,0 01 FEB 2016     05:48:52      10160021     WITHDRAW     FROM XXXXXXXX    ?AMT   GHC40.00[020t 05:48:31 TRANSACTION END[0r(1)2[000p[040qe1w3h162[020t*743*02/01/2016*05:57*     *TRANSACTION STARTED*[020t CARD INSERTED[020tCARD: *************3862DATE 01-02-16    TIME 05:57:28 01 FEB 2016     05:58:33      10160021     INQUIRY     FROM XXXXXXXX90018AVAIL          GHC1260.20  LEDGER         GHC1260.20  [020t 05:58:06 CARD TAKEN[020t 05:58:11 TRANSACTION END[0r(1)2[000p[040qe1w3h162[020t*744*02/01/2016*06:43*     *TRANSACTION STARTED*[020t CARD INSERTED[020tCARD: *************1972DATE 01-02-16    TIME 06:43:53 01 FEB 2016     06:44:56      1016002150291101112719724490    4490     INQUIRY     FROM XXXXXXXX23013AVAIL          GHC14.28LEDGER         GHC14.28[020t 06:44:25 CARD TAKEN[020t 06:44:29 TRANSACTION END[0r(1)2[000p[040qe1w3h162[020t*745*02/01/2016*06:56*and need to extract what is between *TRANSACTION STARTED* and TRANSACTION END, ignoring all other information, and create a new file for each range.The new file will contain only     [020t CARD INSERTED    [020tCARD: *************2584    DATE 01-02-16    TIME 05:47:27     05:48:00 GENAC 1 : ARQC     05:48:05 GENAC 2 : TC    [020t 05:48:16 CARD TAKEN    [020t 05:48:22 NOTES PRESENTED 0,0,2,0     01 FEB 2016     05:48:52      10160021         WITHDRAW         FROM XXXXXXXX    ?    AMT   GHC40.00    [020t 05:48:31this is What I have     #! /usr/bin/perl/ -wprint Content-type: text/html\n\n;use strict;my $somefile = /home/lord-ivan/Soures_Code/Perl/projects/Data/EJDATA.LOG;if(open (my $fh, '<:encoding(UTF-8)', $somefile)){    print  $somefile is opened   $!;}else{    die Could not open file '$somefile' $!;}while (<$fh>) {    if (/TRANSACTION STARTED/ .. /TRANSACTION END/) {     next if /TRANSACTION\s*(STARTED|END)/;    print $_;   }}close ($somefile);my $outputfile = /home/lord-ivan/Soures_Code/Perl/projects/EJ Transport/Queue/;if(open (my $ofh, '>>:encoding(UTF-8)',print $ofh $outputfile)){    print  $outputfile worked   $!;}else{    die Could not write to  $outputfile  $!;}close ($outputfile);I need help with the Extracting 
Extract ranges of lines from a file, saving each range to a separate file
text processing;awk;perl