/**
 * SyntaxHighlighter
 * http://alexgorbatchev.com/
 *
 * SyntaxHighlighter is donationware. If you are using it, please donate.
 * http://alexgorbatchev.com/wiki/SyntaxHighlighter:Donate
 *
 * @version
 * 2.1.364 (October 15 2009)
 * 
 * @copyright
 * Copyright (C) 2004-2009 Alex Gorbatchev.
 *
 * @license
 * This file is part of SyntaxHighlighter.
 * 
 * SyntaxHighlighter is free software: you can redistribute it and/or modify
 * it under the terms of the GNU Lesser General Public License as published by
 * the Free Software Foundation, either version 3 of the License, or
 * (at your option) any later version.
 * 
 * SyntaxHighlighter is distributed in the hope that it will be useful,
 * but WITHOUT ANY WARRANTY; without even the implied warranty of
 * MERCHANTABILITY or FITNESS FOR A PARTICULAR PURPOSE.  See the
 * GNU General Public License for more details.
 * 
 * You should have received a copy of the GNU General Public License
 * along with SyntaxHighlighter.  If not, see <http://www.gnu.org/copyleft/lesser.html>.
 */SyntaxHighlighter.brushes.Perl=function()
{var funcs='abs accept alarm atan2 bind binmode chdir chmod chomp chop chown chr '+'chroot close closedir connect cos crypt defined delete each endgrent '+'endhostent endnetent endprotoent endpwent endservent eof exec exists '+'exp fcntl fileno flock fork format formline 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 grep hex index int ioctl join keys kill lc lcfirst length link '+'listen localtime lock log lstat map mkdir msgctl msgget msgrcv msgsnd '+'oct open opendir ord pack pipe pop pos print printf prototype push '+'quotemeta rand read readdir readline readlink readpipe recv rename '+'reset 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 substr symlink syscall sysopen sysread sysseek '+'system syswrite tell telldir time times tr truncate uc ucfirst umask '+'undef unlink unpack unshift utime values vec wait waitpid warn write';var keywords='bless caller continue dbmclose dbmopen die do dump else elsif eval exit '+'for foreach goto if import last local my next no our package redo ref '+'require return sub tie tied unless untie until use wantarray while';this.regexList=[{regex:new RegExp('#[^!].*$','gm'),css:'comments'},{regex:new RegExp('^\\s*#!.*$','gm'),css:'preprocessor'},{regex:SyntaxHighlighter.regexLib.doubleQuotedString,css:'string'},{regex:SyntaxHighlighter.regexLib.singleQuotedString,css:'string'},{regex:new RegExp('(\\$|@|%)\\w+','g'),css:'variable'},{regex:new RegExp(this.getKeywords(funcs),'gmi'),css:'functions'},{regex:new RegExp(this.getKeywords(keywords),'gm'),css:'keyword'}];this.forHtmlScript(SyntaxHighlighter.regexLib.phpScriptTags);}
SyntaxHighlighter.brushes.Perl.prototype=new SyntaxHighlighter.Highlighter();SyntaxHighlighter.brushes.Perl.aliases=['perl','Perl','pl'];