undef $/;
open(IN, "D:\\temp.log");
$str = <IN>;
print $str;
close(IN);
$str =~ s#<b>#*<b>#gsi;
$str =~ s#</b>#</b>*#gsi;
open(OUT, "> D:\\temp.log");
print OUT $str;
close(OUT);