perl -le "my @list = `dir`; chomp @list; print qq([$_]) for @list"