<?xml version="1.0" encoding="UTF-8"?>
<Scheme>
	<keyword-classes>
		<keyword-class name="perl">
			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 m 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 q qq qr quotemeta qu
			qw qx rand read readdir readline readlink readpipe recv redo
			ref rename require reset return reverse rewinddir rindex rmdir
			s 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 tr truncate
			uc ucfirst umask undef unless unlink unpack unshift untie until
			use utime values vec wait waitpid wantarray warn while write
			x xor y
		</keyword-class>
	</keyword-classes>
	<style-classes>
		<style-class name="heredoc" fore="7f007f" back="ddd0dd" eolfilled="true" />
	</style-classes>
	<language name="perl" title="Perl" folding="true" >
		<lexer name="perl" />
		<use-keywords>
			<keyword key="0" name="Keywords" class="perl"/>
		</use-keywords>
		<use-styles>
			<style name="Default" key="32" />
			<style name="Whitespace" key="0" fore="808080" />
			<style name="Error" key="1" class="error" />
			<style name="Comment" key="2" class="comment" />
			<style name="POD" key="3" fore="004000" back="e0ffe0" eolfilled="true" />
			<style name="Number" key="4" class="number" />
			<style name="Keyword" key="5" class="keyword" />
			<style name="Double Quoted String" key="6" class="string" />
			<style name="Single Quoted String" key="7" class="string" />
			<!-- not currently used:
			<style name="Symbols / Punctuation" key="8" fore="ff0000" bold="true" />
			<style name="Pre-processor" key="9" fore="ff0000" bold="true" />-->
			<style name="Operator" key="10" class="operator" />
			<style name="Identifier" key="11" class="identifier" />
			<style name="Scalar: $var" key="12" fore="4b0082" />
			<style name="Array: @var" key="13" fore="00005e" />
			<style name="Hash: %var" key="14" fore="00008b" />
			<style name="Symbol Table: *var" key="15" back="e0e0e0" />
			<style name="Regex: /re/ or m{re}" key="17" back="a0ffa0" />
			<style name="Substitution: s/re/ore/" key="18" back="f0e080" />
			<!-- obsolete:
			<style name="Long Quote: qq, qr, qw, qx" key="19" fore="ffff00" back="8080a0" /> -->
			<style name="Back Ticks" key="20" fore="ffff00" back="a08080" />
			<style name="Data Section" key="21" fore="600000" back="fff0d8" eolfilled="true" />
			<group name="heredoc" description="Here-doc" class="heredoc">
				<style name="Delimiter" key="22" fore="000000" />
				<style name="Single Quoted (q)" key="23" />
				<style name="Double Quoted (qq)" key="24" bold="true" />
				<style name="Back Ticks (qx)" key="25" italic="true" />
			</group>
			<style name="Generic Single Quoted String" key="26" fore="7f007f" />
			<style name="qq = Double Quoted String" key="27" class="string" />
			<style name="qx = Back Ticks" key="28" fore="ffff00" back="a08080" />
			<style name="qr = Regex" key="29" back="a0ffa0" />
			<style name="qw = Array" key="30" fore="00005e" />
		</use-styles>
	</language>
</Scheme>