help for my tool...

suno has asked for the wisdom of the Perl Monks concerning the following question:

Hi,

I am working in a assembler tool ...my program is as follows:..

MAIN
LR R1,R2
.
.
BALR R1,LABEL#1
L R1,VAR1,
.
.
BAL R3,LABEL#2
.
.
EJECT
LABEL#1
.
.
LABEL#2
.
.
[download]

here what i want to do is, i have to split the program into many subroutines with BAL instuction as the split instuction... so my files will be like...

file1....
MAIN
LR R1,R2
.
.
BALR R1,LABEL#1
[download]

file2...
L R1,VAR1,
.
.
BAL R3,LABEL#2
[download]

file3...
.
.
EJECT
[download]

file4.LABEL#1...
LABEL#1
.
.
[download]

file5.LABEL#2...

LABEL#2
.
.
[download]

hope my question is clear....Can u please help me in this... and there may be n number of subroutines in my code.. i want the file names also to be generated automatically as FILE1,FILE2,..and so on...

Back to Seekers of Perl Wisdom