foreach (split(m!</Genesis:File>!si, $text)) {
			next unless (m!<Genesis:File name=\"(.*?)\">(.*)!si);
			my ($file, $text) = ($1, $2);

			# strip leading and trailing vertical whitespace
			$text =~ s!^(\015|\012)*!!s;
			$text =~ s!(\015|\012)*$!!s;

			my $is_cgi = 0;
			($temp_err_msg, $is_cgi) = &CheckName( $file,1 );
			if ($temp_err_msg) {
				push(@temp_errors, $temp_err_msg);
				next;
				}