perl -e'$test="123.0456.0789";$test =~ s/(\.0.*)(.0)/$1/;print "$test\n";'
___output___
123.0456789