∧
Д`)＜スマソ。
さっきのだと一行が30バイト以下だと改行が余計に付くさ
perl -lpe "$_=substr($_,0,30);" < in.txt > out.txt
にすれば多分上手くいくさ