$#_=-1;$|++;for(\pos,\&_,\\$_){$_[++$#_]=chr(ord(substr$_,$[,$|)-2)};$_[++$#_]=substr\%_,$[,$|;print for@_;