my $amlk = sub { print $_->xpath, "\n"; push @amk, $_->trimmed_text; };