>>45
こうすればメンテ不用になるぞ、っと。

while (<HTM>){
    if (/<!--count-->(\d+)<!--\/count-->/){
        seek HTM,-length,1;
     #書き換え
        last;
    }
}

でもdだ時HTMLごと逝っちゃうのはイヤな感じかも  (w