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