$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";
	}
}