#!/usr/bin/perl
print qq|<?xml version="1.0"?>|;
print "\n";
while ( $_ = <DATA> ) {

    my $save;
    if ( /^\{FILE\}/ .. /^\{NUMBER\}/ ) {
        unless (/^\{(FILE|NUMBER)\}/) {
            my $filename = $_;
            print "The filename is $filename\n";
        }
    }
    open FH, ">$filename.xml";
    print FH '<?xml version="1.0"?>';
    print FH "\n";

    $_ =~ s/[\cA-\cZ]//g;
    if ( /^{(\w+)}/ ... /^\w+/ ) {
        my $tag = $1 if $1;
        if ( !/^{/ ) {
            print FH "<$tag>$_</$tag>\n";

            #   print FH "<\$tag\>$_\</$tag\>\n";
        }

    }
}
close FH;
__DATA__
^B^B^B^B^B^B
{FILE}
sourcetag1
{NUMBER}
00000
{SOURCE}
source1
{KEYWORD}
{AUTHOR}
author
staff
{FILE}
sourcetag2
{NUMBER}
00001
{SOURCE}
sourcenam
{KEYWORD}
{AUTHOR}
author1
staff1