Beefy Boxes and Bandwidth Generously Provided by pair Networks
Welcome to the Monastery
 
PerlMonks  

bl0rf's scratchpad

by bl0rf (Pilgrim)
on Jun 01, 2004 at 21:49 UTC ( [id://358646] : scratchpad . print w/replies, xml ) Need Help??

Help for this page

Select Code to Download


  1. or download this
    $~ = '731161141153164109110115103100113317910011310731719698106100113'
    +;
    while( ${~} )
    ...
       $~=~s;^(\d{${=}});;;${"\\"}=chr($1+1);
       print '';
    }