my $filename="test.txt";
my $template_data = "unsecure/".$filename;

open(DATA_IN, ">>$template_data") || print "Can't open output file1: $template_data\n";
#binmode DATA_IN;

             undef $/;   
            $_ = <DATA_IN>;
 
	         if($_=~/<\?--([^-]*)-([^-]*)-->(.*?)<\/\?--\1-\2-->/sg) {
			 
		}

##</code><code>##

<?--1-1-->
Location 2
</?--1-1-->
		                                  
<?--1-2-->
Location 2
</?--1-2-->
                                                  
<?--3-1-->
Location 2
</?--3-1-->
                                                  
<?--4-1-->
Location 2
</?--4-1-->
                                                  
<?--4-2-->
Location 2
</?--4-2-->