$COMPFILE = IO::File->new;
#!!!!!!!!!!!!!!!!!!!!!!!!! SCALAR SLURP !!!!!!!!!!!!!!!!!!!!!!!!
$comptmplt_file="comp_template.txt";
{
	local $/;
	open SLURP, $comptmplt_file or die "sudden death";
	$comptmplt=<SLURP>;
	close SLURP or die "cannot close $comptmplt: $!";
}
#!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!

$COMPFILE->open("+< comp_no_rods.txt" or die "Can't open");

print "$comptmplt";

until ($COMPFILE -> eof){	
	$compline = $COMPFILE->getline();
	if ($compline=~ /END/){;
		$compline=~ s/END/$comptmplt/;
		print $COMPFILE "$compline";
	}
}	

##</code><code>##

! ==========================================================
TITLE  T2 C1 2V-03-12100 9193 - 9406 EFPH. UTBR STEG NR 018
OPTION  Burnup,Neu3,NoSearch,TTable,FlwTot,NoPowEnd
PRINT   KEYPAR
INIT    /sompath/dist-9193.dat=HIST
SAVE    /somepath/dist-9406.dat=POWER,HIST,TM,TIPNEU,PRMNEU,CRWDR,
SAVE  * PINPOW,PINBUR,PINLHR,PINFIM,PINDRY
POWER   88.900
FLOW    7737.0
PRESS   70.000
CONROD  ALL=100
BURNUP  213.0000, 1, EFPH, Straight-Euler
END

##</code><code>##

! ==========================================================
TITLE  T2 C1 2V-03-12100 BEGIN - FINISH EFPH. UTBR STEG NR 018
OPTION  Burnup,Neu3,NoSearch,TTable,FlwTot,NoPowEnd
PRINT   KEYPAR
INIT    /somepath/dist-BEGIN.dat=HIST
SAVE    /somepath/dist-FINISH.dat=POWER,HIST,TM,TIPNEU,PRMNEU,CRWDR,
SAVE  * PINPOW,PINBUR,PINLHR,PINFIM,PINDRY
POWER   100.0
FLOW    6500
PRESS   70.000
CONROD  ALL=100
BURNUP  500.0000, 1, EFPH, Straight-Euler
END