#!/usr/bin/perl

$src_dir = "src";
$dest_dir = "dest";

$dir = "$src_dir/*.html";
@files = <${dir}>;

$gatc  = <<"EndOfData";
<?-- replace this line -->
EndOfData

foreach $filename (@files) {
	open IN, $filename;
	$destfile = (split(/\//, $filename))[1];
	$destfile = "$dest_dir/$destfile";
	open(OUT, ">$destfile");
	while (<IN>) {
		$data = $_;	# 1行読み込み
		$data =~ s/(<\/[hH][eE][aA][dD]>)/$gatc$1/g;
		print OUT "$data";
	}
	close IN;
	close(OUT);
}

# End of instc.pl