my $num = 141.32124355465;
$num =~ s/\.\d+$//;
print $num;

__OUTPUT__
141