my $quoted = join ',', map{qq{"$_"}} qw(foo bar bas); $quoted is now "foo","bar","bas" [download]
In reply to quick quote comma by rpc