げ、まだ突っ込みどころあるし。

$byte += length($_);
こうね。てかperlもっと勉強したほうがええぞ