perlでの特定行操作

perlでの処理について、質問です。
test.txtの中に以下の文字列が入っています。
===================================
hoge,apple,orange,grape,aomori,gifu,hokk
aido,aomori,iwate,
akita,yamanashi
hoge,shimane,okinawa,kagoshima,fukuoka,aichi,-,-
===================================

上記のファイル内で、1カラム目をすべて"hoge"で始まるように整形したいです。
整形後のイメージは以下です。
===================================
hoge,apple,orange,grape,aomori,gifu,hokkaido,aomori,iwate,akita,yamanashi
hoge,shimane,okinawa,kagoshima,fukuoka,aichi,-,-
===================================

その場合、perlスクリプトはどのように書くべきでしょうか？
一旦すべての改行を削除し、すべてのカラムを1行にした上で、
hoge→"\nhoge"と置換すれば行けるのですが、while文等の繰り返し処理で、何かできないでしょうか？


よろしくお願いいたします。

No.2 回答者： Ogre7077 回答日時： 2017/01/11 18:03

$a = "";

sub puts { print "$a\n" if $a; $a = ""; }
while (<>) { chomp; &puts if (/^hoge/); $a .= $_; }
&puts

No.1 回答者： Tacosan 回答日時： 2017/01/11 15:41

while で回すなら, 基本的な形は

while (<>) {
chomp;
if (/hoge/) {
...
} else {
...
}
}
かなぁ. 厳密な条件は不明だけど.