#!/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;
    }
}

##</code><code>##

__DATA__
[DATA]
data1
[ENTRY]
entry here
[STORY]
story details
[DATA]
[ENTRY]
another entry here
[STORY]
another story