---

sub myfunc {
    my ($number) = @_;
    return 0 if(!$number);
    $number =~ s/,/./;
    $n=0; $r=0;
    ($n,$r)=split('\.',$number);
    if($r){
        $r=substr($r,0,1);
    } else {
        $r=0;
    }
    $n++ if($r>=5);
    return $n;
}
print myfunc("123.5");
print "\n";
print myfunc("123.3");

---

---