>>129
$countとかいう不気味なカウンタ付けてるのが気になる
行数カウントなら自前で用意しなくても $. がある
相当な素人っぽいから、そこらの本やらサイトやらperldocやらを読んでみたほうがいい