$ perl -F, -lanse " print join q{,}, map { qq{\x22$_\x22} } @F "
ro,sham,bo
"ro","sham","bo"