And to add one more shiny metal ball to suck the brains out of your oppressors (ref), how about HTML::TokeParser::Simple?

use strict;
use warnings;

use HTML::TokeParser::Simple;
my $p = HTML::TokeParser::Simple->new('index2.html');

while ( my $token = $p->get_token ) {
    next unless $token->is_tag('title');
    print $p->get_token->as_is;
    last;
}
[download]

L-LL-L--L-LL-L--L-LL-L--
-R--R-RR-R--R-RR-R--R-RR
B--B--B--B--B--B--B--B--
H---H---H---H---H---H---
(the triplet paradiddle with high-hat)