Truce

T  t cebappe lnw  ean e i.c crncd oree mu e e p
hwksnetoillnplchgbr.dirosTetk ce r  nru dtmt ar
ehe o.hunaeoo eooe  esew h riaenruutdvsaghbhbno
reett it i uwtr oiaMr nngebunnrteishaeeneeeiudm
enpo En mntgehnhdn ossc oretg n pnee.dddmyrnt o
    dvgsa hhreea gpstoegoeth aepue i    e eg at
apttie oybi   dvr otam od w dgdetdtrTptinmd fre
rehhsrt banitt eeul neba ieaae oa h hromta togd
eoeetyoiecknoit psipdtelfsentnfptbepei p.yfhru.
 pimuo f k f mhduete itso ndadoliymoidca  oe m
slrsrnc I.tlceaetdiotmw ra   areo  lreoiInryte
oe ebeoy  huo.tva cpheea  tct.  npti  nrno  hn
m cl  mowSeem  ettalasenedhho tw eotwit  tthet
ekovthpuioynpIpliolet ndviee Ihhwo iesrtt ha s
 nmehal lm cl eoo    a  ef rf eoipfcl ohhbevf
topsesacleheaaopnfact twrfwrua sllualbleee eit
iwl   io  a impe ugahdhhyehyrmi lerl e i  g gh
m aapsnmcpvan ldareneieaoro t ng  t ditrerodhe
etineo poeen ce rtn ifitnelphcnobwhaenh neooty
sondamalmo dao aehdurfr eneieoooehegsgejdmdns

#!/usr/bin/perl

my $margin=$ARGV[0];
@text = split //, $ARGV[1];


for(my $i=0;$i<$margin;$i++){

    for(my $j=0;$j<$#text;$j+=$margin){
     print($text[$i+$j]);
    }
    print("\n");
}