http://www.perlmonks.org?node_id=107047


in reply to shifting arguments

Just to note with what you are doing in that example, it would be much easier to just do something like:

sub encode_string($$$){ return join $delimiter,@_; }


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