use v5.10;@i=split//,<>;$t=int(@i/4+.5);push@i," ";say@i[0..$t];say@i[4*$t-$_]." "x($t-1).@i[$t+$_]for(1..$t-1);say reverse@i[2*$t..3*$t];