open(npcdata, "<", "npcdata.txt") or die "Cannot open the file: $!";
open(new_npcdata, ">", "new_npcdata.txt") or die "cannot save file: $!";
$counter = 0;
$pDef = 0;
while(<npcdata>)
{
	$line=$_;
	@Tab = split("	",$line);
	if($Tab[1] eq "boss")
	{
		@exTab = split("=", $Tab[51]);
		$pDef = $exTab[1];
		$pDef*= 0.8;
		$exTab[1] = $pDef;
		$pDef = 0;
		$Tab[51] = join("=", @exTab);
		$new_line = join("	", @Tab);
		print new_npcdata $new_line;
		$counter++
	}else { print new_npcdata $line; }
}
close new_npcdata;
close npcdata;