$/=1;/./,print$&?chr$&/0.32+89+length:$"for<>