TATMWTDI There are too many ways to do it #15
myimage

Solution #9 - Forever Minus a Day

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

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

    return $old;
}
Copyright © 2005 Shlomi Fish