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