col1 = c( "name.surname", "name.surname", "name.surname")
df <- as.data.frame( col1 )
gsub(".", "\r", df$col1, fixed=TRUE)
cat(gsub(".", "\r", df$col1, fixed=TRUE), collapse="\n")