Answer by choroba for XML reading using Perl

Using XML::XSH2, a wrapper around XML::LibXML:

#!/usr/bin/perluse warnings;use strict;use XML::XSH2;xsh << '__XSH__';  open 2.xml ;  for $t in /xml/date/* {       my $s = string($t) ;      perl { push @l, $s }  }__XSH__no warnings qw(once);print join('', @XML::XSH2::Map::l), ".\n";