substr($s, 0, rindex($s, ".")) =~ y/./_/;