er...

$y = int $x;
$z = $x  - $y;
[download]

Of course you may run into problems with negative numbers.

Dave.