#!/usr/bin/perl
use strict;
use warnings;

my $tag;
my $output;
my $fh;
my $deletestrings;
#open DATA,"$ARGV[0]";
while (<DATA>) {
    chomp;
 s/[\cA-\cZ]//g;     # To remove control characters
#To delete the lines which has {IT} and any lines between {IT} and {SOURCETAG}
if (/\{IT\}/ .. /^\{SOURCETAG\}/) {
        unless (/^\{(IT|SOURCETAG)\}/) {
            $deletestrings = $_;
        $_ = '' if index( $_, "$deletestrings" ) >= 0;
        }
    }
        s/[\\|<]$//g;
        s/^[\\|<]//g;
        s/<//g;
        s/^\s+//g;
        s/\s+$//g;
    if(/^{(.*)}$/) {    # match {METATAG} line
        $fh = output($output, $tag, $fh);
        $output = "";
        $tag = $1;
    } else {            # not a {TAG} line

        next unless($tag);
        next if(/^\s*$/);
        s/\\//g;
        $output .= ($output) ? " $_" : "<$tag>$_";
    }
}
$fh = output($output, $tag, $fh);
if($fh) {
    print $fh "</ROOT>\n";
    close($fh);
}
exit(0);

sub output {
    my ($output, $tag, $fh) = @_;
    if($output) {
        if($output =~ m/<SOURCETAG>(.*)/) {
            if($fh) {
                print $fh "</ROOT>\n";
                close($fh);
            }
            open($fh, '>', "$1.xml") or die "$1.xml: $!";
            print $fh "<?xml version=\"1.0\" encoding=\"UTF-8\"?>\n<ROOT>\n";
        }
        print $fh "$output</$tag>\n";
    }
    return($fh);
}
__DATA__
^C^D^V^V^A exit 0543 961017 N S 9702050900 00000000^B{IT}
N
{SOURCETAG}
9702050900
{ACCESSION}
000000
{DATE}
961017
{TDATE}
Thursday, October 17, 1996
{PUBLICATION}
EXITO
{EDITION}
Exito
{SECTION}
SALUD FAMILIAR
{PAGE}
22
{SOURCE}
Por Nahyr Acosta. Colaboradora de ¡Exito!
{COLUMN}
Nuestro hijos.
{HEADLINE}
EVITE LA ENFERMEDAD PERIODONTAL<                   AS
{LEAD}CTIQUE LA HIGIENE DENTAL PARA CUIDAR SUS ENCà  Cuando hace casi dos años visité a mi dentista para hacerme un chequeo
dental , me encontré ante un problema que podía terminar con mi dentadura.
Siempre tuve unos dientes sanos y jamás se me ocurrió pensar que podía  perder
mis piezas si no tomaba acción inmediata. Me puse en manos del  dentista y
empezamos a trabajar en mis encías.<

##</code><code>##

<SECTION>SALUD FAMILIAR</SECTION>
<PAGE>22</PAGE>
<SOURCE>Por Nahyr Acosta. Colaboradora de ¡Exito!</SOURCE>
<COLUMN>Nuestro hijos.</COLUMN>                                                            AS</HEADLINE>
<LEAD>Cuando hace casi dos años visité a mi dentista para hacerme un chequeo dental , me encontré ante un problema que podía terminar con mi dentadura. Siempre tuve unos dientes sanos y jamás se me ocurrió pensar que podía  perder mis piezas si no tomaba acción inmediata. Me puse en manos del  dentista y empezamos a trabajar en mis encías. La descomposición de la comida, la saliva y las bacterias que hay en la boca producen una sustancia llamada placa, que se adhiere a la superficie de los dientes y, si no se limpia diariamente, irrita las encías y se endurecen, formando el sarro. Esta sustancia, a su vez, se adhiere cada vez más, inflamando las encías y produciendo bolsas que se llenan con colonias de bacterias. Estas son las que con el tiempo, causan la enfermedad periodontal. Las bacterias también producen una sustancia llamada toxina, la cual destruye el hueso.</LEAD>