$precision = 100;  # 2 decimal point assumed precision
$x = -2.33;
$y = int($x);
$z = ((abs($x) * $precision) % (abs($y)*$precision)) / $precision;