($_)=(`perl -V`=~m((.*)));s+\(.*\)++;my@a=split/\s+/;$_='-K0 1-t-u-!044c4149-i3105-!30310533-!-i0440-l3147';s(\s)[]g;for( (m((..))g)){my@c=split//;if($c[0]eq'-'){$_=ord$c[1];$_=chr$_ -1;}else{split//,$a[hex$c[0]];$_=$_[hex$c[1]];}print;}
In reply to Re: Re: Built
by iamcal
in thread Built
by iamcal
| For: | Use: | ||
| & | & | ||
| < | < | ||
| > | > | ||
| [ | [ | ||
| ] | ] |