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