#!/usr/bin/perl
use strict;
use warnings;

$^I = ".bak"; 
undef $/;

my $count = 0;
my $line = <>;

		$line =~ s	{
							(<\/div>)
			 		}	{
					if (++$count == 2){
							"\t<?php include(\$_SERVER['DOCUMENT_ROOT'].\"\/includes\/footer.php\"); ?>\n\n".$1;
				 	} else {
							$1;
				 	}
						}gex;
		print $line;