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