#!/usr/bin/perl use strict; use warnings; use Web::Query; # libweb-query-perl use Data::Dumper; my $testhtml ='

Neil Watson

@if version_after macro is illogical

'; my $parts = Web::Query->new_from_html( $testhtml ); my $subject = $parts->find( 'h3' )->text; # How to find the subject between h3 tags? #print "parts ".Dumper( $parts ); print "subjectfinal ".Dumper( $subject );