tie @lines, 'Tie::File', 'file' or die ...;
        for (@lines) {
          if (/<!-- insert here -->/) {
            $_ .= $text;
            last;
          }
        }
        untie @lines;


##</code><code>##

tie @array, 'Tie::File', $file or die ("Oh Noes cannot open $file");
for (@array){
	if (/"$section"/){
	$_ .="$newline";
	last;
	}
}
	untie @array;