i m rewriting the current code here i m printing the give n part but i want it in between.
in reply to Re^3: to copy certain content in file & repeat it .
in thread to copy certain content in file & repeat it .
i want to actuaaly print the given para in between here using these script i am print @ end of file.
my $lin =$_;
print FF1 $lin;
if ($lin=~m/pattern to be patched for stat copying/)
my @arr =$lin[$i];
if($lin=~m/pattern where to stop copying & repeating/)
for (my $j=0;$j<$i;$j++)
print FF1 @arr[$j];