Select Code to Download

my $replacement= '\t<?php include(\$_SERVER['DOCUMENT_ROOT'].\"\/inclu
+des\/footer.php\"); ?>\n\n';

s{ </div> .*? \K (?=</div>) }
 { $replacement }
 x;

#!/usr/bin/perl
use strict;
...
   $filecontents =~ s { </div> .*? \K (?=</div>) } { $replacement } x;
   print $filecontents;
   }