use XML::Simple; use Data::Dumper; use strict; my $parser = new XML::Simple(); my $ref = $parser->XMLin("".'28.56-1.22-4.104/02'.""); print $ref->{span}[0]{content}, "\n"; print $ref->{span}[1]{content};