use strict;

sub tagheader {

    my $header;

    open(STYLESHEET,'stylesheet.txt');
    my $tag = shift;

    ###########################################################
    # "HEADER" appears before "nm" in the style sheet
    # Find each "HEADER" in the file and assign $1 to $header
    # If we find the $tag we're looking for return $header
    #
    while (<STYLESHEET>) {
        if (/^HEADER (\d+):/) {
            $header = $1;
        }
        if (/^nm : ($tag)/) {
            return \$header;
        }
    }
    close(STYLESHEET);
}


my $body;
my $tag;

open(FILE,'taggedfile.txt');
open(OUT,">$ARGV[0]");

while(<FILE>) {
    if (/^\{(\w+)\}/) {
        $tag = $1;
        $body = tagheader($tag);

# Right here, $_ contains "nm : $tag" from the tagheader()
# I see that $_ has been modified by tagheader()
# This is my problem and I'm stumped :(

        s/\{($tag)\}/\{$1:$body\}/;

# I want to search and replace the ($tag) with $1:$body
# $body will contain a number that is assigned to the $tag 
# in the style sheet.

    }

    print OUT $_;
}
close(FILE);
close(OUT);

__DATA__

FILE { type : if }

FILEHDR {
File_Comment : ""
}
HEADER 1:        {
_std_comment : ""
nm : TAG
post : ""
ppriority : 1st
pmaxwhite : 0
}
BODY 1:1       {
endval : page
priority : 1st
ffamily : 2
fvariant : 3
fheight : 10q
fwidth : same
maxwhite : 0
prelead : no
ldasc : normal
lindent : 0
pgindent : 0
lnmeas : full
ldextra : 2q
lddesc : normal
qdtbl : l
hjtbl : 4
pgsplit : no
lpabove : 0
lpbelow : 0
laabove : 0
labelow : 0
language : 1
xpath : ""
capmode : no
kernnum : 1
spotcolor : normal
psrnum : 1
ipcrnum : active
pair_kern : yes
endstring : ""
pre : ""
repeat : repeat
pgrful : none
httbl : none
pattern : none
comment1 : ""
}
[download]

Edit by tye to add READMORE