$s[~$i-=1+$n*$j+=!$n]=fgetc(STDIN)?:die($s))$s.=~õ;