#!/usr/bin/perl -w

# use: xsltproc convert.xsl video/xml/head.xml | xmllint --format - | reformat

use strict;

my $xml;
{
    local $/;
    $xml = <>;
}

$xml =~ s/^(\s+)(.*?)$/$1$1$2/gsm;
$xml =~ s{(<lego:item[^/]*?>)\s*?(<.*?>)\s*(</lego:item>)}{$1$2$3}gsm;

$xml =~ s{(<\?xml version="1.0" encoding="utf-8"\?>)}{$1\n}gsm;

print $xml;
