s//123571115223042567710113517623129738549062779210021255157519582436301037184565560468428349101431231014883179772163726015311853733844583531746326175175891341055581247541472731735252042262399432815893299313861554512765268236141547152208318209664671121505130015615054991741630201255823235202679689308773535543454087968469720553927836185689708950081182649289091106198631213216413848650157964761800432720506255233384692654366030167357342629623888767344108109499959255663417364112359725338078201017792669720104651419118114304133230930150198136169229875190569292/;$m=$n=1;s/(\d{$n})(\d{$m})/$n=$m and$1<$2?"$1 $2":$m++."a$1$2"/e,s/\d+a//while$i++<110;$i=0;@_=split/ /;print"p($i)=",shift@_,"\n"while$i++<100
Note that non-ascii characters in the above source code will be escaped (such as \x9f).