open(SOMEHTMLFILE,"$CurrentTemplate") || die ("Шаблон не открывается");
@SOMEHTMLFILE = ;
close(SOMEHTMLFILE);
for(my $i = 0; $i < @SOMEHTMLFILE; $i++) {
$curline = $SOMEHTMLFILE[$i];
$curline =~ s/(color=")+.+(")/color="000000"/g;
.................итд, что тебе надо поменять.....
print $curline;
}