my $p = HTML::TokeParser::Simple->new( $html );

my $token = $p->get_token;

my $tag = "meta";
my $att = "content";

if ( $token->is_tag($tag) ) { print "There is a $tag  tag\n" };

my $att_value = $token->get_attr($att);
print "The value of the $att attribute of the $tag tag is $att_value \n\n\n\n";

my $url = substr($att_value,6);
print $url,"\n";