$/=\1,@_=<>;s//$,@_$,
/,shift@_,$,.=$"while@_;print