Use the power of HTML::Parser :

use HTML::Parser;

my $p = HTML::Parser->new( api_version => 3,
                                start_h => [\&start, "self,tagname, at
+tr"]
                              );


$p->parse('<META NAME="TITLE" CONTENT="Page Title Here">');

sub start
{
   my ( $self, $tag, $attr ) = @_;

   if ($tag eq 'meta' && lc($attr->{name}) eq 'title' )
   {
      print $attr->{content};
      $self->handler(start => '' );
   }
}
[download]

/J\