my $var = 23123412341234.01222222;

print "var=$var\n";
if(int($var) != $var){
	print "is a float\n";
}
else{
	print "not a float\n";
}

##</code><code>##

var=23123412341234
is a float