xml_split -l 1 tsplit.xml \
&& perl -e'my @src= glob( "tsplit-*.xml"); \
          foreach my $target (`xml_grep -t name tsplit-*.xml`) \
            { chomp $target; \ 
              my $src= shift @src; \
              warn "rename $src, $target.xml\n"; \
              rename $src, "$target.xml";
            }'