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__ Nothing to see here