note
damian1301
Just to note with what you are doing in that example, it would be much easier to just do something like:
<BR><BR><code>
sub encode_string($$$){
return join $delimiter,@_;
}</code>
<BR><BR>
<code>
$_.=($=+(6<<1));print(chr(my$a=$_));$^H=$_+$_;$_=$^H;
print chr($_-39); # Easy but its ok.
</code>
107004
107004