Select Code to Download

<span> Author_name </span>
__filler__
...
<span> New_Author </span>
__filler__
<ul>.....

 my %publications = $tree->look_down( _tag => 'span');

...
  next unless ($_ =~ /(?:span|li)/;
  $_ =~ /span/ ? $author =~ /\>(.+)\<\/span/ : push @publications{$aut
+hor}, /li\>(.+)\<\/li/;
 }