sub encode_string($$$){
	return join $delimiter,@_;
}
##</code><code>##

$_.=($=+(6<<1));print(chr(my$a=$_));$^H=$_+$_;$_=$^H;
print chr($_-39); # Easy but its ok.