$na =~ s/(?<=\.\d\d\d)\d*$//;

##</code><code>##

chop $na;