fix: Perl atom should be quoted

Signed-off-by: Xuanwo <github@xuanwo.io>

src/tree_sitter_parser.rs

@@ -479,7 +479,9 @@ pub fn from_language(language: guess::Language) -> TreeSitterConfig {
             TreeSitterConfig {
                 name: "Perl",
                 language,
-                atom_nodes: vec!["string"].into_iter().collect(),
+                atom_nodes: vec!["string_single_quoted", "string_double_quoted"]
+                    .into_iter()
+                    .collect(),
                 delimiter_tokens: vec![("(", ")"), ("{", "}"), ("[", "]")],
                 highlight_query: ts::Query::new(language, "").unwrap(),
             }