Unnamed

use encoding utf8;
my $content;
my $deny;
use HTML::TokeParser;
use Data::Dumper;
my $p = HTML::TokeParser->new(shift);
my $tag;

while ( $tag = $p->get_tag("meta") ) {
	if ( defined( $tag->[1]{'name'} )) {
		if($tag->[1]{'name'} eq "description") {
		$content = $tag->[1]{'content'};
		}
	};
}

if ($content !~ /[a-zA-Z0-9]/) {
$content = `head -n10 index.dumped.html`;
}

my $filename = "descdenied";

open( FILE, "< $filename" ) or die "Can't open $filename : $!";

foreach $deny (<FILE>) {

$content =~ s/$deny//g;
}
close FILE;

$content =~ s/\r|\n//g;
chomp($content);
print $content;


print "\n";