diff --git a/frontend/static/languages/_groups.json b/frontend/static/languages/_groups.json
index 476815df1..8c86bfa0c 100644
--- a/frontend/static/languages/_groups.json
+++ b/frontend/static/languages/_groups.json
@@ -326,7 +326,8 @@
       "code_lua",
       "code_luau",
       "code_matlab",
-      "code_sql"
+      "code_sql",
+      "code_perl"
     ]
   },
   {
diff --git a/frontend/static/languages/_list.json b/frontend/static/languages/_list.json
index b4e7fa8b8..c4662338e 100644
--- a/frontend/static/languages/_list.json
+++ b/frontend/static/languages/_list.json
@@ -178,6 +178,7 @@
   ,"code_luau"
   ,"code_matlab"
   ,"code_sql"
+  ,"code_perl"
   ,"hindi"
   ,"hindi_1k"
   ,"macedonian"
diff --git a/frontend/static/languages/code_perl.json b/frontend/static/languages/code_perl.json
new file mode 100644
index 000000000..a4122a36d
--- /dev/null
+++ b/frontend/static/languages/code_perl.json
@@ -0,0 +1,241 @@
+{
+  "name": "code_perl",
+  "leftToRight": true,
+  "noLazyMode": true,
+  "words": [
+    "length",
+    "link",
+    "listen",
+    "local",
+    "localtime",
+    "log",
+    "lstat",
+    "map",
+    "mkdir",
+    "msgctl",
+    "msgget",
+    "msgrcv",
+    "msgsnd",
+    "my",
+    "next",
+    "not",
+    "oct",
+    "open",
+    "opendir",
+    "ord",
+    "our",
+    "pack",
+    "pipe",
+    "pop",
+    "pos",
+    "print",
+    "printf",
+    "abs",
+    "prototype",
+    "accept",
+    "push",
+    "alarm",
+    "quotemeta",
+    "rand",
+    "read",
+    "readdir",
+    "bind",
+    "readline",
+    "binmode",
+    "readlink",
+    "bless",
+    "readpipe",
+    "break",
+    "recv",
+    "caller",
+    "redo",
+    "chdir",
+    "ref",
+    "rename",
+    "chmod",
+    "require",
+    "chomp",
+    "reset",
+    "chop",
+    "return",
+    "chown",
+    "reverse",
+    "chr",
+    "rewinddir",
+    "chroot",
+    "rindex",
+    "close",
+    "rmdir",
+    "closedir",
+    "say",
+    "connect",
+    "scalar",
+    "cos",
+    "seek",
+    "crypt",
+    "seekdir",
+    "dbmclose",
+    "select",
+    "dbmopen",
+    "semctl",
+    "defined",
+    "semget",
+    "delete",
+    "semop",
+    "send",
+    "die",
+    "setgrent",
+    "dump",
+    "sethostent",
+    "each",
+    "setnetent",
+    "else",
+    "qw",
+    "elsif",
+    "qx",
+    "eq",
+    "s",
+    "exp",
+    "sub",
+    "for",
+    "tr",
+    "foreach",
+    "unless",
+    "ge",
+    "until",
+    "gt",
+    "while",
+    "if",
+    "xor",
+    "le",
+    "y",
+    "setpgrp",
+    "endgrent",
+    "setpriority",
+    "endhostent",
+    "setprotoent",
+    "endnetent",
+    "setpwent",
+    "endprotoent",
+    "setservent",
+    "endpwent",
+    "setsockopt",
+    "endservent",
+    "shift",
+    "eof",
+    "shmctl",
+    "eval",
+    "shmget",
+    "exec",
+    "shmread",
+    "exists",
+    "shmwrite",
+    "exit",
+    "shutdown",
+    "fcntl",
+    "sin",
+    "fileno",
+    "sleep",
+    "flock",
+    "socket",
+    "fork",
+    "socketpair",
+    "format",
+    "sort",
+    "formline",
+    "splice",
+    "getc",
+    "split",
+    "getgrent",
+    "sprintf",
+    "getgrgid",
+    "sqrt",
+    "getgrnam",
+    "srand",
+    "gethostbyaddr",
+    "stat",
+    "gethostbyname",
+    "state",
+    "gethostent",
+    "study",
+    "getlogin",
+    "substr",
+    "getnetbyaddr",
+    "symlink",
+    "getnetbyname",
+    "syscall",
+    "getnetent",
+    "sysopen",
+    "getpeername",
+    "sysread",
+    "getpgrp",
+    "sysseek",
+    "getppid",
+    "system",
+    "getpriority",
+    "syswrite",
+    "getprotobyname",
+    "tell",
+    "getprotobynumber",
+    "telldir",
+    "getprotoent",
+    "tie",
+    "getpwent",
+    "tied",
+    "getpwnam",
+    "time",
+    "getpwuid",
+    "times",
+    "getservbyname",
+    "truncate",
+    "getservbyport",
+    "uc",
+    "getservent",
+    "ucfirst",
+    "getsockname",
+    "umask",
+    "getsockopt",
+    "undef",
+    "glob",
+    "gmtime",
+    "unlink",
+    "goto",
+    "unpack",
+    "grep",
+    "unshift",
+    "hex",
+    "untie",
+    "index",
+    "use",
+    "utime",
+    "int",
+    "values",
+    "ioctl",
+    "vec",
+    "join",
+    "wait",
+    "keys",
+    "waitpid",
+    "kill",
+    "wantarray",
+    "last",
+    "warn",
+    "lc",
+    "write",
+    "lcfirst",
+    "lock",
+    "lt",
+    "m",
+    "ne",
+    "no",
+    "and",
+    "or",
+    "cmp",
+    "package",
+    "continue",
+    "q",
+    "qq",
+    "do",
+    "qr"
+  ]
+}