$s = substr($s, 0, rindex($s, '.'));