1 files changed, 43 insertions, 0 deletions
diff --git a/lib/lexers/perl.tes b/lib/lexers/perl.tes
new file mode 100644
index 0000000..ea11fbf
--- /dev/null
+++ b/lib/lexers/perl.tes
@@ -0,0 +1,43 @@
+! AUTO-GENERATED FROM SCITE PROPERTY SET !
+
+@[lexer.test.perl]{ [_
+  _#!M[perl,pl]M[lexer.checkheader]"S
+    -1
+  |
+    _.[pl,pm,pod]M[lexer.checkname]
+  '
+]_ }
+
+@[lexer.set.perl]{
+  ESSETLEXER,SCLEX_PERL
+  0ESSETKEYWORDS
+    NULL __FILE__ __LINE__ __PACKAGE__ __DATA__ __END__ AUTOLOAD BEGIN CORE
+    DESTROY END EQ GE GT INIT LE LT NE CHECK abs accept alarm and atan2 bind binmode
+    bless caller chdir chmod chomp chop chown chr chroot close closedir cmp connect
+    continue cos crypt dbmclose dbmopen defined delete die do dump each else elsif
+    endgrent endhostent endnetent endprotoent endpwent endservent eof eq eval exec exists
+    exit exp fcntl fileno flock for foreach fork format formline ge getc getgrent
+    getgrgid getgrnam gethostbyaddr gethostbyname gethostent getlogin getnetbyaddr
+    getnetbyname getnetent getpeername getpgrp getppid getpriority getprotobyname
+    getprotobynumber getprotoent getpwent getpwnam getpwuid getservbyname getservbyport
+    getservent getsockname getsockopt glob gmtime goto grep gt hex if index int ioctl join
+    keys kill last lc lcfirst le length link listen local localtime lock log lstat lt
+    map mkdir msgctl msgget msgrcv msgsnd my ne next no not oct open opendir or ord
+    our pack package pipe pop pos print printf prototype push quotemeta qu rand read
+    readdir readline readlink readpipe recv redo ref rename require reset return reverse
+    rewinddir rindex rmdir scalar seek seekdir select semctl semget semop send setgrent
+    sethostent setnetent setpgrp setpriority setprotoent setpwent setservent setsockopt
+    shift shmctl shmget shmread shmwrite shutdown sin sleep socket socketpair sort
+    splice split sprintf sqrt srand stat study sub substr symlink syscall sysopen
+    sysread sysseek system syswrite tell telldir tie tied time times truncate uc ucfirst
+    umask undef unless unlink unpack unshift untie until use utime values vec wait
+    waitpid wantarray warn while write xor given when default break say state UNITCHECK
+    __SUB__ fc
+  :M[color.error],1M[color.set]
+  :M[color.comment],2M[color.set]
+  :M[color.number],4M[color.set]
+  :M[color.keyword],5M[color.set]
+  :M[color.string],6M[color.set]
+  :M[color.string2],7M[color.set]
+  :M[color.operator],10M[color.set]
+}