use strict;
use XML::Rules;

my $reader = XML::Rules->new(
	rules => {
		_default => 'raw',
		head => 'content array',
		TEI => 'pass no content',
	}
);

my $heads = $reader->parsefile( $small_file_name )->{head};
#use Data::Dumper;
#print Dumper($heads);