perl -pe '$_=/\S/?do{chop;$_.",".<>}:""'