There are several ways of doing that. One is:

    {my $i = 0;
     s/(\.0)/++ $i == 2 ? "" : $1/eg;
    }
[download]

Abigail