if($contents) { my $content_data=get($contents); my $html2 = HTML::TreeBuilder->new(); $html2->parse($content_data); for my $p ($html2->look_down(_tag => 'p')) { next if($p->as_text() !~ /ISSN:/i); } if($p) { my $doi=$p->content()->[10]; $values{doi}=$doi if($doi); my $issn=$p->content()->[12]; $values{issn}=$issn if($issn); } $html2->delete(); }