$"='';map{@a=@_,@a[$',$_]=@_[$_,$'],$\<"@a"?$\="@a":0for//..$#_}0..(@_=<>=~/./g);print