$int = sprintf "%d", $num;


##</code><code>##

    $int = int $num + $num =~ /\.[5-9]/;