use XML::Rules;

my $parser = XML::Rules->new(
 rules => [
  '_default' => '',
  'the_tag' => sub { 
   my ($tag, $attr, $context) = @_;
   print join('->', @{$context}), "-><$tag>\n";
  }
 ]
);

$parser->parsefile( $filename);
[download]