Meta Tag Generator—Generating Meta Description and Title Tags Automatically

#
# META TAG GENERATOR—GENERATING META DESCRIPTION AND TITLE TAGS AUTOMATICALLY
# How to Bulk Generate Meta Description and Title Tags for Every Page Based Solely on the Web Page Name
#

$dir = '.\pages';

my $LineTerminator = $/;

opendir(DIR, $dir) or die "Can't open directory $dir ERR: $!";
foreach $file (sort grep(/^.*\.(aspx?|html?)$/,readdir(DIR))) {
	&Process($file);
}
closedir DIR;

sub Process{
	local $file = shift;
	print "\n$file\n";

	local $title = &FormatTitle($file);

	local $/ = undef;
	open(FILE,"<$dir\\$file");
	local $content = ;
	close(FILE);
	local $/ = $LineTerminator;

	$content =~ s#[\n\r]##gm;

	# Replace title with properly formatted filename
	$titletag = &ReplaceTag($title,'title');

	# Replace description with properly formatted filename
	local $description = $title;
	$descriptiontag = &ReplaceTag($description,'description','content');

	$content =~ s##\n#igm;

	open(DEST,">$dir\\$file");
	print DEST $content;
	close(DEST);

	print "$titletag\n$descriptiontag\n";
}

sub FormatTitle{
	local $title = shift;

	# Get rid of file extension
	$title =~ s/\.(aspx?|html?)//gi;

	# Replace dash with space
	$title =~ s/[\-]+/ /gi;

	# Capitalize words of at least 3 characters
	$title =~ s/ ([^ ]{3,})/ \u\1/gi;

	return $title;
}

sub ReplaceTag{
	local $replacement = shift;
	local $tag = shift;
	local $attribute = shift;

	if ($attribute) {
		# tag before attribute
		$content = "${1}${replacement}${3}" if ($content =~ m#(.*]*name="${tag}"[^>]*${attribute}=")([^"]*)("[^>]*>.*)#i);

		# tag after attribute
		$content = "${1}${replacement}${3}" if ($content =~ m#(.*]*${attribute}=")([^"]*)("[^>]*name="${tag}"[^>]*>.*)#i);
	} else {
		$content = "${1}${replacement}${3}" if ($content =~ m#(.*<${tag}[^>]*>)([^<]*)(.*)#i);
	}
	return $content;
}

# Meta Tag Generator Script