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