s/./ord($&)/eg; [download]
In reply to Re: Obtaining perl's version from script by pg in thread Obtaining perl's version from script by zjunior