code:

---

$y = ""
While instr($filename, ".") > 0
	$x = instr($filename, ".")
	If $x = 0
		$x = len($filename)
	Endif
	$y = $y + substr($filename, 1, $x)
	$filename = substr($filename, $x+1, len($filename))
Loop
$y = substr($y, 1, len($y)-1)
? "y = " + $y  

---