lexer.*.pl=perl
keywords.*.pl=\
ADJUST AUTOLOAD BEGIN CHECK CORE DESTROY END EQ GE GT INIT LE LT NE NULL \
UNITCHECK __CLASS__ __DATA__ __END__ __FILE__ __LINE__ __PACKAGE__ \
__SUB__ abs accept alarm all and any atan2 attributes autodie autouse \
base bigfloat bigint bignum bigrat bind binmode bless blib break builtin \
bytes caller catch charnames chdir chmod chomp chop chown chr chroot \
class close closedir cmp connect constant continue cos crypt dbmclose \
dbmopen default defer defined delete deprecate diagnostics die do dump \
each else elseif elsif encoding endgrent endhostent endnetent \
endprotoent endpwent endservent eof eq eval evalbytes exec exists exit \
exp experimental fc fcntl feature field fields fileno filetest finally \
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 given glob \
gmtime goto grep gt hex if import index int integer ioctl isa join keys \
kill last lc lcfirst le length less lib link listen local locale \
localtime lock log lstat lt map meta_notation method mkdir mro msgctl \
msgget msgrcv msgsnd my ne next no not oct ok open opendir ops or ord \
our overload overloading pack package parent perlfaq pipe pop pos print \
printf prototype push qu quotemeta rand re read readdir readline \
readlink readpipe recv redo ref rename require reset return reverse \
rewinddir rindex rmdir say scalar seek seekdir select semctl semget \
semop send setgrent sethostent setnetent setpgrp setpriority setprotoent \
setpwent setservent setsockopt shift shmctl shmget shmread shmwrite \
shutdown sigtrap sin size sleep socket socketpair sort splice split \
sprintf sqrt srand stable stat state strict study sub subs substr \
symlink syscall sysopen sysread sysseek system syswrite tell telldir \
threads tie tied time times truncate try uc ucfirst umask undef unless \
unlink unpack unshift untie until use utf8 utime values vars vec version \
vmsish wait waitpid wantarray warn warnings when while write xor

fold=1
fold.comment=1