$str =~ s/\.\d+$//;