$num++   if  $num =~ s#\.(\d*)##  &&  "5" le $1;