use HTML::TokeParser::Simple; my $p = HTML::TokeParser::Simple->new(\*DATA); while(my $t = $p->get_token) { print $p->get_token()->return_text and last if $t->is_start_tag('title'); } __DATA__ this is a test