ちぇっく用のprint　が残ってた。

>print join('|', @line_all),"\n";

はいらない。