#!/usr/bin/perl
        print qq|<?xml version="1.0"?>|;
        print "\n";
while($_ = <DATA>){
if (/^\[\w+\]/ .. /^\[\w+\]/) {
            $save = $_;
        $save =~ s/\[/</g;
        $save =~ s/\]/>/g;
        print $save;
    }
}