Solution #10 - While #2

sub delpoint2 ($) {
    local $_ = shift;

    while (s/\.(.*\.)/$1/) {}

    return $_;
}