in reply to splitting a decimal number..

my $x = 2.33;
my $y = int($x);
my $z = $x - $y;

[download]

In Section Seekers of Perl Wisdom