Hej expertkommitténs

Jag är nybörjare till perl, Bara nyfiken hur man gör följande i perl.
antar att jag har en txt-fil som nedan. när grundar "* Main Start"
Sedan gå till "* Main End ,,,,,,,," patteren och bara hämta numret från den tidigare linjen av "* Main End ,,,,,,," mönster. I mitt fall är det 5. Börja sedan excuting normalt från "* Main Start" ståndpunkt

Följande är bilden .. Jag vill inte skapa någon temp-fil också ..
Indatafil:

*Init End
*Main Start
*Comment Reset Timers
000000,0000,0,0,0,0,0,1,0
000000,0000,0,0,0,0,1,1,0 
*Comment Control Frame at 1.04596 ms
000000,0400,0,0,0,0,1,0,1
2418A4,0000,0,1,3,0,0,0,0 
049C00,0000,0,0,2,0,0,0,0
*Comment Control Frame at 1.04673 ms
*Comment Control Frame at
000002,0000,0,0,0,0,1,0,1
241002,0000,0,1,3,0,0,0,0
000100,0000,0,0,2,0,0,0,0
*Comment Control Frame at
000004,0000,0,0,0,0,1,0,1
241002,0000,0,1,3,0,0,0,0
000000,0000,0,0,2,0,0,0,0
*Comment Frame 13 at ** us,,,,,,,,
000005,7E3D,0,0,0,0,1,0,1
*Main End,,,,,,,,

*Init End
*Main Start
 repeat(5);
process all lines as usual here.

............
*Main End,,,,,,,,,

 if(m/^\*/){
              print "//", $_;
              next;
    }

Basic Algorithm of my programme need :
1. If "*Main Start" pattern found go to line where Pattern matches "*Main end".
2. Get the previous line. and get the value of the first field.
3. Return to "*Main start" position again. & Print repeat(that number) : in my case it is 5 :
4. stop/next;