k, what about:
$o = $o+($y=" ")-$o*(0<instr('!.?',$y))

it gives 368.
_________________________
!

download KiXnet