Solution #9 - Forever Minus a Day

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

    my $old = $_;
    while (/\./) {
        $old = $_;
        s/\.//;
    }

    return $old;
}