Did you try it?

$ perl -e'my ($X,$Y,$Z)=(1,7,5);my $c=($X-$Y)/$Z;print $c-int$c, $/'
-0.2
$
[download]

That may not be what's wanted, either.