Solution #5 - Count and Replace

sub count_and_replace
{
    my $s = shift;
    my $count = (my @a = ($s =~ /\./g));
    $s =~ s/\./(--$count)?"":"."/ge;
    return $s;
}