#! perl -slw
use strict;
use POSIX qw[ modf ];

my $float = 2.543;

my( $fract, $integral ) = modf( $float );
print "$integral - $fract";
__END__
P:\test>462825
2 - 0.543