Change gsub(“\0”, “_”) to tr