split//,<>;print@b=@_[@_-$_..@_],reverse(@b),$/for 1..@_