note
murugu
Code is untested.
<code>
my ($offset) = grep {$lines[$_]=~/USER\s+NOTE/} (0..$#lines);
splice(@lines,$offset+1,0,"@$global_variables_list");
</code>
<!-- Node text goes above. Div tags should contain sig only -->
<div class="pmsig"><div class="pmsig-323803">
<p>Regards,<br>Murugesan Kandasamy<br>use perl for(;;);
</div></div>
857078
857078