$|=chr(ord(substr("\cX\c9",-1))-(1<<6^2));++$|;