$x - POSIX::floor( $x );

##</code><code>##

$x - int( $x );

##</code><code>##

( POSIX::modf( $x ) )[ 0 ];