#!perl -lp
$_=splice@_,$a=(--$a+$')%@_,1for@A=@_=/ /..$_;$_="@A"