perl -le "print qq([$_]\n) for qw($foo $bar $baz);"