{"version":3,"sources":["../../node_modules/codemirror/mode/perl/perl.js"],"names":["mod","exports","module","require","define","amd","CodeMirror","defineMode","PERL","->","++","--","**","=~","!~","*","/","%","x","+","-",".","<<",">>","<",">","<=",">=","lt","gt","le","ge","==","!=","<=>","eq","ne","cmp","~~","&","|","^","&&","||","//","..","...","?",":","=","+=","-=","*=",",","=>","::","not","and","or","xor","BEGIN","END","PRINT","PRINTF","GETC","READ","READLINE","DESTROY","TIE","TIEHANDLE","UNTIE","STDIN","STDIN_TOP","STDOUT","STDOUT_TOP","STDERR","STDERR_TOP","$ARG","$_","@ARG","@_","$LIST_SEPARATOR","$\"","$PROCESS_ID","$PID","$$","$REAL_GROUP_ID","$GID","$(","$EFFECTIVE_GROUP_ID","$EGID","$)","$PROGRAM_NAME","$0","$SUBSCRIPT_SEPARATOR","$SUBSEP","$;","$REAL_USER_ID","$UID","$<","$EFFECTIVE_USER_ID","$EUID","$>","$a","$b","$COMPILING","$^C","$DEBUGGING","$^D","${^ENCODING}","$ENV","%ENV","$SYSTEM_FD_MAX","$^F","@F","${^GLOBAL_PHASE}","$^H","%^H","@INC","%INC","$INPLACE_EDIT","$^I","$^M","$OSNAME","$^O","${^OPEN}","$PERLDB","$^P","$SIG","%SIG","$BASETIME","$^T","${^TAINT}","${^UNICODE}","${^UTF8CACHE}","${^UTF8LOCALE}","$PERL_VERSION","$^V","${^WIN32_SLOPPY_STAT}","$EXECUTABLE_NAME","$^X","$1","$MATCH","$&","${^MATCH}","$PREMATCH","$`","${^PREMATCH}","$POSTMATCH","$'","${^POSTMATCH}","$LAST_PAREN_MATCH","$+","$LAST_SUBMATCH_RESULT","$^N","@LAST_MATCH_END","@+","%LAST_PAREN_MATCH","%+","@LAST_MATCH_START","@-","%LAST_MATCH_START","%-","$LAST_REGEXP_CODE_RESULT","$^R","${^RE_DEBUG_FLAGS}","${^RE_TRIE_MAXBUF}","$ARGV","@ARGV","ARGV","ARGVOUT","$OUTPUT_FIELD_SEPARATOR","$OFS","$,","$INPUT_LINE_NUMBER","$NR","$.","$INPUT_RECORD_SEPARATOR","$RS","$/","$OUTPUT_RECORD_SEPARATOR","$ORS","$\\","$OUTPUT_AUTOFLUSH","$|","$ACCUMULATOR","$^A","$FORMAT_FORMFEED","$^L","$FORMAT_PAGE_NUMBER","$%","$FORMAT_LINES_LEFT","$-","$FORMAT_LINE_BREAK_CHARACTERS","$:","$FORMAT_LINES_PER_PAGE","$=","$FORMAT_TOP_NAME","$^","$FORMAT_NAME","$~","${^CHILD_ERROR_NATIVE}","$EXTENDED_OS_ERROR","$^E","$EXCEPTIONS_BEING_CAUGHT","$^S","$WARNING","$^W","${^WARNING_BITS}","$OS_ERROR","$ERRNO","$!","%OS_ERROR","%ERRNO","%!","$CHILD_ERROR","$?","$EVAL_ERROR","$@","$OFMT","$#","$*","$ARRAY_BASE","$[","$OLD_PERL_VERSION","$]","if","elsif","else","while","unless","for","foreach","abs","accept","alarm","atan2","bind","binmode","bless","bootstrap","break","caller","chdir","chmod","chomp","chop","chown","chr","chroot","close","closedir","connect","continue","cos","crypt","dbmclose","dbmopen","default","defined","delete","die","do","dump","each","endgrent","endhostent","endnetent","endprotoent","endpwent","endservent","eof","eval","exec","exists","exit","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","given","glob","gmtime","goto","grep","hex","import","index","int","ioctl","join","keys","kill","last","lc","lcfirst","length","link","listen","local","localtime","lock","log","lstat","m","map","mkdir","msgctl","msgget","msgrcv","msgsnd","my","new","next","no","oct","open","opendir","ord","our","pack","package","pipe","pop","pos","print","printf","prototype","push","q","qq","qr","quotemeta","qw","qx","rand","read","readdir","readline","readlink","readpipe","recv","redo","ref","rename","reset","return","reverse","rewinddir","rindex","rmdir","s","say","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","state","study","sub","substr","symlink","syscall","sysopen","sysread","sysseek","system","syswrite","tell","telldir","tie","tied","time","times","tr","truncate","uc","ucfirst","umask","undef","unlink","unpack","unshift","untie","use","utime","values","vec","wait","waitpid","wantarray","warn","when","write","y","RXstyle","RXmodifiers","tokenChain","stream","chain","style","tail","tokenize","e","c","i","undefined","eatWhile","tokenPerl","tokenSOMETHING","string","skipToEnd","eatSpace","match","current","sol","ch","prefix","p","n","eat","look","test","eatSuffix","suffix","l","startState","token","lineComment","registerHelper","defineMIME","charAt"],"mappings":"CAMA,SAAUA,GACR,SAAWC,UAAW,gBAAmBC,SAAU,SACjDF,EAAIG,QAAQ,6BACT,UAAWC,SAAU,YAAcA,OAAOC,IAC7CD,QAAQ,wBAAyBJ,OAEjCA,GAAIM,cACL,SAASA,GACZ,YAEAA,GAAWC,WAAW,OAAO,WAErB,GAAIC,IAQIC,KAAoC,EACpCC,KAAoC,EACpCC,KAAoC,EACpCC,KAAoC,EAEpCC,KAAoC,EACpCC,KAAoC,EACpCC,IAAoC,EACpCC,IAAoC,EACpCC,IAAoC,EACpCC,EAAoC,EACpCC,IAAoC,EACpCC,IAAoC,EACpCC,IAAoC,EACpCC,KAAoC,EACpCC,KAAoC,EAEpCC,IAAoC,EACpCC,IAAoC,EACpCC,KAAoC,EACpCC,KAAoC,EACpCC,GAAoC,EACpCC,GAAoC,EACpCC,GAAoC,EACpCC,GAAoC,EACpCC,KAAoC,EACpCC,KAAoC,EACpCC,MAAoC,EACpCC,GAAoC,EACpCC,GAAoC,EACpCC,IAAoC,EACpCC,KAAoC,EACpCC,IAAoC,EACpCC,IAAoC,EACpCC,IAAoC,EACpCC,KAAoC,EACpCC,KAAoC,EACpCC,KAAoC,EACpCC,KAAoC,EACpCC,MAAoC,EACpCC,IAAoC,EACpCC,IAAoC,EACpCC,IAAoC,EACpCC,KAAoC,EACpCC,KAAoC,EACpCC,KAAoC,EACpCC,IAAoC,EACpCC,KAAoC,EACpCC,KAAoC,EAEpCC,IAAoC,EACpCC,IAAoC,EACpCC,GAAoC,EACpCC,IAAoC,EAEpCC,OAAqC,EAAE,GACvCC,KAAqC,EAAE,GACvCC,OAAqC,EAAE,GACvCC,QAAqC,EAAE,GACvCC,MAAqC,EAAE,GACvCC,MAAqC,EAAE,GACvCC,UAAqC,EAAE,GACvCC,SAAqC,EAAE,GACvCC,KAAqC,EAAE,GACvCC,WAAqC,EAAE,GACvCC,OAAqC,EAAE,GACvCC,MAAqC,EACrCC,UAAqC,EACrCC,OAAqC,EACrCC,WAAqC,EACrCC,OAAqC,EACrCC,WAAqC,EACrCC,KAAqC,EACrCC,GAAqC,EACrCC,OAAqC,EACrCC,KAAqC,EACrCC,gBAAqC,EACrCC,KAAqC,EACrCC,YAAqC,EACrCC,KAAqC,EACrCC,GAAqC,EACrCC,eAAqC,EACrCC,KAAqC,EACrCC,KAAqC,EACrCC,oBAAqC,EACrCC,MAAqC,EACrCC,KAAqC,EACrCC,cAAqC,EACrCC,GAAqC,EACrCC,qBAAqC,EACrCC,QAAqC,EACrCC,KAAqC,EACrCC,cAAqC,EACrCC,KAAqC,EACrCC,KAAqC,EACrCC,mBAAqC,EACrCC,MAAqC,EACrCC,KAAqC,EACrCC,GAAqC,EACrCC,GAAqC,EACrCC,WAAqC,EACrCC,MAAqC,EACrCC,WAAqC,EACrCC,MAAqC,EACrCC,eAAqC,EACrCC,KAAqC,EACrCC,OAAqC,EACrCC,eAAqC,EACrCC,MAAqC,EACrCC,KAAqC,EACrCC,mBAAqC,EACrCC,MAAqC,EACrCC,MAAqC,EACrCC,OAAqC,EACrCC,OAAqC,EACrCC,cAAqC,EACrCC,MAAqC,EACrCC,MAAqC,EACrCC,QAAqC,EACrCC,MAAqC,EACrCC,WAAqC,EACrCC,QAAqC,EACrCC,MAAqC,EACrCC,KAAqC,EACrCC,OAAqC,EACrCC,UAAqC,EACrCC,MAAqC,EACrCC,YAAqC,EACrCC,cAAqC,EACrCC,gBAAqC,EACrCC,iBAAqC,EACrCC,cAAqC,EACrCC,MAAqC,EACrCC,wBAAqC,EACrCC,iBAAqC,EACrCC,MAAqC,EACrCC,GAAqC,EACrCC,OAAqC,EACrCC,KAAqC,EACrCC,YAAqC,EACrCC,UAAqC,EACrCC,KAAqC,EACrCC,eAAqC,EACrCC,WAAqC,EACrCC,KAAqC,EACrCC,gBAAqC,EACrCC,kBAAqC,EACrCC,KAAqC,EACrCC,sBAAqC,EACrCC,MAAqC,EACrCC,kBAAqC,EACrCC,KAAqC,EACrCC,oBAAqC,EACrCC,KAAqC,EACrCC,oBAAqC,EACrCC,KAAqC,EACrCC,oBAAqC,EACrCC,KAAqC,EACrCC,yBAAqC,EACrCC,MAAqC,EACrCC,qBAAqC,EACrCC,qBAAqC,EACrCC,MAAqC,EACrCC,QAAqC,EACrCC,KAAqC,EACrCC,QAAqC,EACrCC,wBAAqC,EACrCC,KAAqC,EACrCC,KAAqC,EACrCC,mBAAqC,EACrCC,IAAqC,EACrCC,KAAqC,EACrCC,wBAAqC,EACrCC,IAAqC,EACrCC,KAAqC,EACrCC,yBAAqC,EACrCC,KAAqC,EACrCC,MAAqC,EACrCC,kBAAqC,EACrCC,KAAqC,EACrCC,aAAqC,EACrCC,MAAqC,EACrCC,iBAAqC,EACrCC,MAAqC,EACrCC,oBAAqC,EACrCC,KAAqC,EACrCC,mBAAqC,EACrCC,KAAqC,EACrCC,8BAAqC,EACrCC,KAAqC,EACrCC,uBAAqC,EACrCC,KAAqC,EACrCC,iBAAqC,EACrCC,KAAqC,EACrCC,aAAqC,EACrCC,KAAqC,EACrCC,yBAAqC,EACrCC,mBAAqC,EACrCC,MAAqC,EACrCC,yBAAqC,EACrCC,MAAqC,EACrCC,SAAqC,EACrCC,MAAqC,EACrCC,mBAAqC,EACrCC,UAAqC,EACrCC,OAAqC,EACrCC,KAAqC,EACrCC,YAAqC,EACrCC,SAAqC,EACrCC,KAAqC,EACrCC,aAAqC,EACrCC,KAAqC,EACrCC,YAAqC,EACrCC,KAAqC,EACrCC,MAAqC,EACrCC,KAAqC,EACrCC,KAAqC,EACrCC,YAAqC,EACrCC,KAAqC,EACrCC,kBAAqC,EACrCC,KAAqC,EAErCC,MAAkC,EAAE,GACpCC,OAAkC,EAAE,GACpCC,QAAkC,EAAE,GACpCC,SAAkC,EAAE,GACpCC,QAAkC,EAAE,GACpCC,OAAkC,EAAE,GACpCC,SAAkC,EAAE,GAEpCC,IAAiC,EACjCC,OAAiC,EACjCC,MAAiC,EACjCC,MAAiC,EACjCC,KAAiC,EACjCC,QAAiC,EACjCC,MAAiC,EACjCC,UAAiC,EACjCC,QAAiC,EACjCC,OAAiC,EACjCC,MAAiC,EACjCC,MAAiC,EACjCC,MAAiC,EACjCC,KAAiC,EACjCC,MAAiC,EACjCC,IAAiC,EACjCC,OAAiC,EACjCC,MAAiC,EACjCC,SAAiC,EACjCC,QAAiC,EACjCC,YAAkC,EAAE,GACpCC,IAAiC,EACjCC,MAAiC,EACjCC,SAAiC,EACjCC,QAAiC,EACjCC,UAAiC,EACjCC,QAAiC,EACjCC,SAAiC,EACjCC,IAAiC,EACjCC,KAAiC,EACjCC,KAAiC,EACjCC,KAAiC,EACjCC,SAAiC,EACjCC,WAAiC,EACjCC,UAAiC,EACjCC,YAAiC,EACjCC,SAAiC,EACjCC,WAAiC,EACjCC,IAAiC,EACjCC,KAAiC,EACjCC,KAAiC,EACjCC,OAAiC,EACjCC,KAAiC,EACjCC,IAAiC,EACjCC,MAAiC,EACjCC,OAAiC,EACjCC,MAAiC,EACjCC,KAAiC,EACjCC,OAAiC,EACjCC,SAAiC,EACjCC,KAAiC,EACjCC,SAAiC,EACjCC,SAAiC,EACjCC,SAAiC,EACjCC,cAAiC,EACjCC,cAAiC,EACjCC,WAAiC,EACjCC,SAAiC,EACjCC,aAAiC,EACjCC,aAAiC,EACjCC,UAAiC,EACjCC,YAAiC,EACjCC,QAAiC,EACjCC,QAAiC,EACjCC,YAAiC,EACjCC,eAAiC,EACjCC,iBAAiC,EACjCC,YAAiC,EACjCC,SAAiC,EACjCC,SAAiC,EACjCC,SAAiC,EACjCC,cAAiC,EACjCC,cAAiC,EACjCC,WAAiC,EACjCC,YAAiC,EACjCC,WAAiC,EACjCC,MAAiC,EACjCC,KAAiC,EACjCC,OAAiC,EACjCC,OAAiC,EACjCC,KAAiC,EACjCC,IAAiC,EACjCC,SAAiC,EACjCC,MAAiC,EACjCC,MAAiC,EACjCC,MAAiC,EACjCC,KAAiC,EACjCC,KAAiC,EACjCC,KAAiC,EACjCC,KAAiC,EACjCC,GAAiC,EACjCC,QAAiC,EACjCC,OAAiC,EACjCC,KAAiC,EACjCC,OAAiC,EACjCC,MAAkC,EAClCC,UAAiC,EACjCC,KAAiC,EACjCC,IAAiC,EACjCC,MAAiC,EACjCC,EAAiC,KACjCC,IAAiC,EACjCC,MAAiC,EACjCC,OAAiC,EACjCC,OAAiC,EACjCC,OAAiC,EACjCC,OAAiC,EACjCC,GAAkC,EAClCC,MAAiC,EACjCC,KAAiC,EACjCC,GAAiC,EACjCC,IAAiC,EACjCC,KAAiC,EACjCC,QAAiC,EACjCC,IAAiC,EACjCC,IAAkC,EAClCC,KAAiC,EACjCC,UAAiC,EACjCC,KAAiC,EACjCC,IAAiC,EACjCC,IAAiC,EACjCC,MAAiC,EACjCC,OAAiC,EACjCC,UAAiC,EACjCC,KAAiC,EACjCC,EAAiC,KACjCC,GAAiC,KACjCC,GAAiC,KACjCC,UAAiC,KACjCC,GAAiC,KACjCC,GAAiC,KACjCC,KAAiC,EACjCC,KAAiC,EACjCC,QAAiC,EACjCC,SAAiC,EACjCC,SAAiC,EACjCC,SAAiC,EACjCC,KAAiC,EACjCC,KAAiC,EACjCC,IAAiC,EACjCC,OAAiC,EACjClX,QAAiC,EACjCmX,MAAiC,EACjCC,SAAiC,EACjCC,QAAiC,EACjCC,UAAiC,EACjCC,OAAiC,EACjCC,MAAiC,EACjCC,EAAiC,KACjCC,IAAiC,EACjCC,OAAiC,EACjCC,KAAiC,EACjCC,QAAiC,EACjCC,OAAiC,EACjCC,OAAiC,EACjCC,OAAiC,EACjCC,MAAiC,EACjCC,KAAiC,EACjCC,SAAiC,EACjCC,WAAiC,EACjCC,UAAiC,EACjCC,QAAiC,EACjCC,YAAiC,EACjCC,YAAiC,EACjCC,SAAiC,EACjCC,WAAiC,EACjCC,WAAiC,EACjCC,MAAiC,EACjCC,OAAiC,EACjCC,OAAiC,EACjCC,QAAiC,EACjCC,SAAiC,EACjCC,SAAiC,EACjCC,IAAiC,EACjCC,MAAiC,EACjCC,OAAiC,EACjCC,WAAiC,EACjCC,KAAiC,EACjCC,OAAiC,EACjCC,MAAiC,EACjCC,QAAiC,EACjCC,KAAiC,EACjCC,MAAiC,EACjCC,KAAiC,EACjCC,MAAiC,EACjCC,MAAiC,EACjCC,IAAiC,EACjCC,OAAiC,EACjCC,QAAiC,EACjCC,QAAiC,EACjCC,QAAiC,EACjCC,QAAiC,EACjCC,QAAiC,EACjCC,OAAiC,EACjCC,SAAiC,EACjCC,KAAiC,EACjCC,QAAiC,EACjCC,IAAiC,EACjCC,KAAiC,EACjCC,KAAiC,EACjCC,MAAiC,EACjCC,GAAiC,KACjCC,SAAiC,EACjCC,GAAiC,EACjCC,QAAiC,EACjCC,MAAiC,EACjCC,MAAiC,EACjCC,OAAiC,EACjCC,OAAiC,EACjCC,QAAiC,EACjCC,MAAiC,EACjCC,IAAiC,EACjCC,MAAiC,EACjCC,OAAiC,EACjCC,IAAiC,EACjCC,KAAiC,EACjCC,QAAiC,EACjCC,UAAiC,EACjCC,KAAiC,EACjCC,KAAiC,EACjCC,MAAiC,EACjCC,EAAiC,KAEzC,IAAIC,GAAQ,UACZ,IAAIC,GAAY,iBAEhB,SAASC,GAAWC,EAAOzC,EAAM0C,EAAMC,EAAMC,GACrC5C,EAAM0C,MAAM,IACZ1C,GAAM2C,MAAM,IACZ3C,GAAM4C,KAAK,IACX5C,GAAM6C,SAAS,SAASJ,EAAOzC,GACvB,GAAI8C,GAAE,MAAMC,EAAEC,EAAE,CAChB,OAAMD,EAAEN,EAAOnH,OAAO,CACd,GAAGyH,IAAIL,EAAMM,KAAKF,EAAE,CACZ,GAAGJ,IAAQM,KAAKC,UAAU,CAClBjD,EAAM0C,MAAMA,EAAMM,EAClBhD,GAAM2C,MAAMA,CACZ3C,GAAM4C,KAAKA,MACd,IAAGA,EACAH,EAAOS,SAASN,EACxB5C,GAAM6C,SAASM,CACf,OAAOR,GACfG,GAAGA,GAAGC,GAAG,KACjB,MAAOJ,GACf,OAAO3C,GAAM6C,SAASJ,EAAOzC,GAErC,QAASoD,GAAeX,EAAOzC,EAAMqD,GAC7BrD,EAAM6C,SAAS,SAASJ,EAAOzC,GACvB,GAAGyC,EAAOY,QAAQA,EACVrD,EAAM6C,SAASM,CACvBV,GAAOa,WACP,OAAO,SACf,OAAOtD,GAAM6C,SAASJ,EAAOzC,GAErC,QAASmD,GAAUV,EAAOzC,GAClB,GAAGyC,EAAOc,WACF,MAAO,KACf,IAAGvD,EAAM0C,MACD,MAAOF,GAAWC,EAAOzC,EAAMA,EAAM0C,MAAM1C,EAAM2C,MAAM3C,EAAM4C,KACrE,IAAGH,EAAOe,MAAM,aAAa,OACrB,GAAGf,EAAOe,MAAM,+EACR,MAAO,QACvB,IAAGf,EAAOe,MAAM,aAAa,CACrBf,EAAOS,SAAS,KAChB,OAAOE,GAAeX,EAAOzC,EAAMyC,EAAOgB,UAAUtD,OAAO,IACnE,GAAGsC,EAAOiB,OAAOjB,EAAOe,MAAM,iBAAiB,CACvC,MAAOJ,GAAeX,EAAOzC,EAAM,QAC3C,GAAI2D,GAAGlB,EAAOnH,MACd,IAAGqI,GAAI,KAAKA,GAAI,IAAI,CACZ,GAAGC,EAAOnB,EAAQ,IAAI,KAAKkB,EAAG,CACtB,GAAIE,GAAEpB,EAAOxG,GACbwG,GAAOS,SAAS,KAChB,IAAIY,GAAErB,EAAOgB,UAAUtD,OAAO,EAC9B,IAAG2D,GAAGrB,EAAOsB,IAAIJ,GACT,MAAOP,GAAeX,EAAOzC,EAAM8D,EAC3CrB,GAAOxG,IAAI4H,EACnB,MAAOrB,GAAWC,EAAOzC,GAAO2D,GAAI,UAC5C,GAAGA,GAAI,IAAI,CACH,GAAIZ,GAAEiB,EAAKvB,GAAS,EACpB,MAAKM,GAAG,KAAKkB,KAAKlB,IAAI,CACdA,EAAEiB,EAAKvB,EAAQ,EACf,IAAGM,GAAG,IAAI,CACFA,EAAEiB,EAAKvB,EAAQ,EACf,IAAGM,GAAG,IAAI,CACFmB,EAAUzB,EAAQ,EAClB,OAAOD,GAAWC,EAAOzC,GAAO,KAAKsC,EAAQC,GACrD,GAAGQ,GAAG,IAAI,CACFmB,EAAUzB,EAAQ,EAClB,OAAOD,GAAWC,EAAOzC,GAAO,KAAKsC,EAAQC,GACrD,GAAGQ,GAAG,IAAI,CACFmB,EAAUzB,EAAQ,EAClB,OAAOD,GAAWC,EAAOzC,GAAO,KAAKsC,EAAQC,GACrD,GAAGQ,GAAG,IAAI,CACFmB,EAAUzB,EAAQ,EAClB,OAAOD,GAAWC,EAAOzC,GAAO,KAAKsC,EAAQC,GACrD,GAAG,aAAa0B,KAAKlB,GAAG,CAChBmB,EAAUzB,EAAQ,EAClB,OAAOD,GAAWC,EAAOzC,GAAOyC,EAAOsB,IAAIhB,IAAIT,EAAQC,QAClE,IAAGQ,GAAG,IAAI,CACPA,EAAEiB,EAAKvB,EAAQ,EACf,IAAGM,GAAG,IAAI,CACFmB,EAAUzB,EAAQ,EAClB,OAAOD,GAAWC,EAAOzC,GAAO,KAAK,UAC7C,GAAG+C,GAAG,IAAI,CACFmB,EAAUzB,EAAQ,EAClB,OAAOD,GAAWC,EAAOzC,GAAO,KAAK,UAC7C,GAAG+C,GAAG,IAAI,CACFmB,EAAUzB,EAAQ,EAClB,OAAOD,GAAWC,EAAOzC,GAAO,KAAK,UAC7C,GAAG+C,GAAG,IAAI,CACFmB,EAAUzB,EAAQ,EAClB,OAAOD,GAAWC,EAAOzC,GAAO,KAAK,UAC7C,GAAG,aAAaiE,KAAKlB,GAAG,CAChBmB,EAAUzB,EAAQ,EAClB,OAAOD,GAAWC,EAAOzC,GAAOyC,EAAOsB,IAAIhB,IAAI,eAC1D,IAAGA,GAAG,IAAI,CACPA,EAAEiB,EAAKvB,EAAQ,EACf,IAAGM,GAAG,IAAI,CACFmB,EAAUzB,EAAQ,EAClB,OAAOD,GAAWC,EAAOzC,GAAO,KAAK,WAC7C,GAAG+C,GAAG,IAAI,CACFmB,EAAUzB,EAAQ,EAClB,OAAOD,GAAWC,EAAOzC,GAAO,KAAK,WAC7C,GAAG+C,GAAG,IAAI,CACFmB,EAAUzB,EAAQ,EAClB,OAAOD,GAAWC,EAAOzC,GAAO,KAAK,WAC7C,GAAG+C,GAAG,IAAI,CACFmB,EAAUzB,EAAQ,EAClB,OAAOD,GAAWC,EAAOzC,GAAO,KAAK,WAC7C,GAAG,aAAaiE,KAAKlB,GAAG,CAChBmB,EAAUzB,EAAQ,EAClB,OAAOD,GAAWC,EAAOzC,GAAOyC,EAAOsB,IAAIhB,IAAI,gBAC1D,IAAGA,GAAG,IAAI,CACPA,EAAEiB,EAAKvB,EAAQ,EACf,IAAGM,GAAG,IAAI,CACFmB,EAAUzB,EAAQ,EAClB,OAAOD,GAAWC,EAAOzC,GAAO,KAAKsC,EAAQC,GACrD,GAAGQ,GAAG,IAAI,CACFmB,EAAUzB,EAAQ,EAClB,OAAOD,GAAWC,EAAOzC,GAAO,KAAKsC,EAAQC,GACrD,GAAGQ,GAAG,IAAI,CACFmB,EAAUzB,EAAQ,EAClB,OAAOD,GAAWC,EAAOzC,GAAO,KAAKsC,EAAQC,GACrD,GAAGQ,GAAG,IAAI,CACFmB,EAAUzB,EAAQ,EAClB,OAAOD,GAAWC,EAAOzC,GAAO,KAAKsC,EAAQC,GACrD,GAAG,aAAa0B,KAAKlB,GAAG,CAChBmB,EAAUzB,EAAQ,EAClB,OAAOD,GAAWC,EAAOzC,GAAOyC,EAAOsB,IAAIhB,IAAIT,EAAQC,QAClE,IAAG,kBAAkB0B,KAAKlB,GAAG,CAC1B,GAAGA,GAAG,IAAI,CACFmB,EAAUzB,EAAQ,EAClB,OAAOD,GAAWC,EAAOzC,GAAO,KAAK,UAC7C,GAAG+C,GAAG,IAAI,CACFmB,EAAUzB,EAAQ,EAClB,OAAOD,GAAWC,EAAOzC,GAAO,KAAK,UAC7C,GAAG+C,GAAG,IAAI,CACFmB,EAAUzB,EAAQ,EAClB,OAAOD,GAAWC,EAAOzC,GAAO,KAAK,UAC7C,GAAG+C,GAAG,IAAI,CACFmB,EAAUzB,EAAQ,EAClB,OAAOD,GAAWC,EAAOzC,GAAO,KAAK,UAC7C,GAAG,aAAaiE,KAAKlB,GAAG,CAChB,MAAOP,GAAWC,EAAOzC,GAAOyC,EAAOsB,IAAIhB,IAAI,aAC/E,GAAGY,GAAI,IAAI,CACH,GAAIZ,GAAEiB,EAAKvB,GAAS,EACpB,MAAKM,GAAG,KAAKkB,KAAKlB,IAAI,CACdA,EAAEN,EAAOsB,IAAI,kBACb,IAAGhB,EAAE,CACG,GAAG,aAAakB,KAAKlB,GAAG,CAChB,MAAOP,GAAWC,EAAOzC,GAAO+C,GAAGT,EAAQC,GACnD,GAAGQ,GAAG,IAAI,CACF,MAAOP,GAAWC,EAAOzC,GAAO,KAAKsC,EAAQC,GACrD,GAAGQ,GAAG,IAAI,CACF,MAAOP,GAAWC,EAAOzC,GAAO,KAAKsC,EAAQC,GACrD,GAAGQ,GAAG,IAAI,CACF,MAAOP,GAAWC,EAAOzC,GAAO,KAAKsC,EAAQC,GACrD,GAAGQ,GAAG,IAAI,CACF,MAAOP,GAAWC,EAAOzC,GAAO,KAAKsC,EAAQC,MAC7E,GAAGoB,GAAI,IAAI,CACH,GAAIZ,GAAE,cAAckB,KAAKD,EAAKvB,GAAS,GACvC,KAAIM,EAAE,CACEA,EAAEN,EAAOsB,IAAI,kBACb,IAAGhB,EAAE,CACG,GAAGA,GAAG,IACE,MAAOP,GAAWC,EAAOzC,GAAO,IAAI,KAAKsC,EAAQC,EACzD,IAAGQ,GAAG,IACE,MAAOP,GAAWC,EAAOzC,GAAO,IAAI,KAAKsC,EAAQC,EACzD,IAAGQ,GAAG,IACE,MAAOP,GAAWC,EAAOzC,GAAO,IAAI,KAAKsC,EAAQC,EACzD,IAAGQ,GAAG,IACE,MAAOP,GAAWC,EAAOzC,GAAO,IAAI,KAAKsC,EAAQC,EACzD,OAAOC,GAAWC,EAAOzC,GAAO+C,EAAEA,GAAGT,EAAQC,KACrE,GAAGoB,GAAI,IAAI,CACH,GAAIZ,GAAE,cAAckB,KAAKD,EAAKvB,GAAS,GACvC,KAAIM,EAAE,CACEA,EAAEN,EAAOsB,IAAI,kBACb,IAAGhB,EAAE,CACG,GAAGA,GAAG,IACE,MAAOP,GAAWC,EAAOzC,GAAO,IAAI,KAAKsC,EAAQC,EACzD,IAAGQ,GAAG,IACE,MAAOP,GAAWC,EAAOzC,GAAO,IAAI,KAAKsC,EAAQC,EACzD,IAAGQ,GAAG,IACE,MAAOP,GAAWC,EAAOzC,GAAO,IAAI,KAAKsC,EAAQC,EACzD,IAAGQ,GAAG,IACE,MAAOP,GAAWC,EAAOzC,GAAO,IAAI,KAAKsC,EAAQC,EACzD,OAAOC,GAAWC,EAAOzC,GAAO+C,EAAEA,GAAGT,EAAQC,KACrE,GAAGoB,GAAI,IAAI,CACH,GAAIZ,GAAE,cAAckB,KAAKD,EAAKvB,GAAS,GACvC,KAAIM,EAAE,CACEA,EAAEN,EAAOsB,IAAI,IAAK,IAAGhB,EAAE,CACvBA,EAAEN,EAAOsB,IAAI,kBACb,IAAGhB,EAAE,CACG,GAAGA,GAAG,IACE,MAAOP,GAAWC,EAAOzC,GAAO,IAAI,KAAKsC,EAAQC,EACzD,IAAGQ,GAAG,IACE,MAAOP,GAAWC,EAAOzC,GAAO,IAAI,KAAKsC,EAAQC,EACzD,IAAGQ,GAAG,IACE,MAAOP,GAAWC,EAAOzC,GAAO,IAAI,KAAKsC,EAAQC,EACzD,IAAGQ,GAAG,IACE,MAAOP,GAAWC,EAAOzC,GAAO,IAAI,KAAKsC,EAAQC,EACzD,OAAOC,GAAWC,EAAOzC,GAAO+C,EAAEA,GAAGT,EAAQC,MACrE,GAAGoB,GAAI,IAAI,CACH,MAAOnB,GAAWC,EAAOzC,GAAO2D,GAAI,cAC5C,GAAGA,GAAI,IAAI,CACH,IAAI,QAAQM,KAAKL,EAAOnB,IAChB,MAAO,eAEP,OAAOD,GAAWC,EAAOzC,GAAO2D,GAAIrB,EAAQC,GAC5D,GAAGoB,GAAI,IAAI,CACH,GAAIE,GAAEpB,EAAOxG,GACb,IAAGwG,EAAOS,SAAS,OAAOT,EAAOsB,IAAI,MAAMtB,EAAOS,SAAS,OAAOT,EAAOsB,IAAI,KACrE,MAAO,iBAEPtB,GAAOxG,IAAI4H,EAC3B,GAAG,QAAQI,KAAKN,GAAI,CACZ,GAAIE,GAAEpB,EAAOxG,GACb,IAAGwG,EAAOsB,IAAI,MAAMtB,EAAOsB,IAAI,WAAW,SAASE,KAAKD,EAAKvB,GAAS,KAAKA,EAAOsB,IAAI,wCAAwC,CACtH,GAAIhB,GAAEN,EAAOgB,SACb,IAAGjd,EAAKuc,GACA,MAAO,aACvBN,EAAOxG,IAAI4H,EACnB,GAAG,SAASI,KAAKN,GAAI,CACb,GAAGlB,EAAOS,SAAS,cAAcT,EAAOsB,IAAI,MAAMtB,EAAOS,SAAS,cAAcT,EAAOsB,IAAI,KAAK,CACxF,GAAIhB,GAAEN,EAAOgB,SACb,IAAGjd,EAAKuc,GACA,MAAO,iBAEP,OAAO,YAC/B,GAAGY,GAAI,IAAI,CACH,GAAGK,EAAKvB,GAAS,IAAI,IAAI,CACjBA,EAAOa,WACP,OAAO,WACvB,GAAG,2BAA2BW,KAAKN,GAAI,CAC/B,GAAIE,GAAEpB,EAAOxG,GACbwG,GAAOS,SAAS,2BAChB,IAAG1c,EAAKic,EAAOgB,WACP,MAAO,eAEPhB,GAAOxG,IAAI4H,EAC3B,GAAGF,GAAI,IAAI,CACH,GAAGlB,EAAOxG,KAAK,EAAE,CACT,GAAGkI,EAAO1B,EAAQ,IAAI,SAAS,CACvB,MAAOD,GAAWC,EAAOzC,GAAO,MAAM,eACzC,IAAGmE,EAAO1B,EAAQ,IAAI,UAAU,CAC7B,MAAOD,GAAWC,EAAOzC,GAAO,MAAM,kBACzC,IAAGmE,EAAO1B,EAAQ,IAAI,OAAO,CAC1B,MAAOD,GAAWC,EAAOzC,GAAO,MAAM,YAC9D,GAAG,KAAKiE,KAAKN,GAAI,CACT,GAAIE,GAAEpB,EAAOxG,GACb,IAAG+H,EAAKvB,GAAS,IAAI,MAAMuB,EAAKvB,EAAQ,IAAI,KAAKA,EAAOS,SAAS,OAAOc,EAAKvB,EAAQ,IAAI,KACjF,MAAO,aAEPA,GAAOxG,IAAI4H,EAC3B,GAAG,QAAQI,KAAKN,GAAI,CACZ,GAAIS,GAAEJ,EAAKvB,GAAS,EACpB,IAAIoB,GAAEpB,EAAOxG,GACbwG,GAAOS,SAAS,SAChB,IAAG,UAAUe,KAAKD,EAAKvB,EAAQ,IAAI,CAC3BA,EAAOxG,IAAI4H,MACf,CACI,GAAId,GAAEvc,EAAKic,EAAOgB,UAClB,KAAIV,EACI,MAAO,MACf,IAAGA,EAAE,GACGA,EAAEA,EAAE,EACZ,IAAGqB,GAAG,IAAI,CACF,GAAGrB,GAAG,EACE,MAAO,cACV,IAAGA,GAAG,EACH,MAAO,UACV,IAAGA,GAAG,EACH,MAAO,WACV,IAAGA,GAAG,EACH,MAAO,eACV,IAAGA,GAAG,EACH,MAAO,iBAEP,OAAO,WAEf,OAAO,QAC/B,GAAG,YAAYkB,KAAKN,GAAI,CAChB,GAAIS,GAAEJ,EAAKvB,GAAS,EACpBA,GAAOS,SAAS,KAChB,IAAIH,GAAEvc,EAAKic,EAAOgB,UAClB,KAAIV,EACI,MAAO,MACf,IAAGA,EAAE,GACGA,EAAEA,EAAE,EACZ,IAAGqB,GAAG,IAAI,CACF,GAAGrB,GAAG,EACE,MAAO,cACV,IAAGA,GAAG,EACH,MAAO,UACV,IAAGA,GAAG,EACH,MAAO,WACV,IAAGA,GAAG,EACH,MAAO,eACV,IAAGA,GAAG,EACH,MAAO,iBAEP,OAAO,WAEf,OAAO,OACvB,MAAO,MAEf,OACIsB,WAAY,WACR,OACIxB,SAAUM,EACVT,MAAO,KACPC,MAAO,KACPC,KAAM,OAGd0B,MAAO,SAAS7B,EAAQzC,GACpB,OAAQA,EAAM6C,UAAYM,GAAWV,EAAQzC,IAEjDuE,YAAa,MAIzBje,GAAWke,eAAe,YAAa,OAAQ,QAE/Cle,GAAWme,WAAW,cAAe,OAGrC,SAAST,GAAKvB,EAAQM,GACpB,MAAON,GAAOY,OAAOqB,OAAOjC,EAAOxG,KAAK8G,GAAG,IAI7C,QAASa,GAAOnB,EAAQM,GACtB,GAAGA,EAAE,CACH,GAAI7b,GAAEub,EAAOxG,IAAI8G,CACjB,OAAON,GAAOY,OAAOlD,OAAQjZ,GAAG,EAAEA,EAAE,EAAG6b,OACrC,CACF,MAAON,GAAOY,OAAOlD,OAAO,EAAEsC,EAAOxG,IAAI,IAK7C,QAASkI,GAAO1B,EAAQM,GACtB,GAAIV,GAAEI,EAAOY,OAAOhJ,MACpB,IAAInT,GAAEmb,EAAEI,EAAOxG,IAAI,CACnB,OAAOwG,GAAOY,OAAOlD,OAAOsC,EAAOxG,IAAK8G,GAAGA,EAAEV,EAAEU,EAAE7b,GAInD,QAASgd,GAAUzB,EAAQM,GACzB,GAAI7b,GAAEub,EAAOxG,IAAI8G,CACjB,IAAIV,EACJ,IAAGnb,GAAG,EACJub,EAAOxG,IAAI,MACR,IAAG/U,IAAImb,EAAEI,EAAOY,OAAOhJ,OAAO,GACjCoI,EAAOxG,IAAIoG,MAEXI,GAAOxG,IAAI/U","file":"perl.min.js","sourcesContent":["// CodeMirror, copyright (c) by Marijn Haverbeke and others\n// Distributed under an MIT license: https://codemirror.net/LICENSE\n\n// CodeMirror2 mode/perl/perl.js (text/x-perl) beta 0.10 (2011-11-08)\n// This is a part of CodeMirror from https://github.com/sabaca/CodeMirror_mode_perl (mail@sabaca.com)\n\n(function(mod) {\n  if (typeof exports == \"object\" && typeof module == \"object\") // CommonJS\n    mod(require(\"../../lib/codemirror\"));\n  else if (typeof define == \"function\" && define.amd) // AMD\n    define([\"../../lib/codemirror\"], mod);\n  else // Plain browser env\n    mod(CodeMirror);\n})(function(CodeMirror) {\n\"use strict\";\n\nCodeMirror.defineMode(\"perl\",function(){\n        // http://perldoc.perl.org\n        var PERL={                                      //   null - magic touch\n                                                        //   1 - keyword\n                                                        //   2 - def\n                                                        //   3 - atom\n                                                        //   4 - operator\n                                                        //   5 - variable-2 (predefined)\n                                                        //   [x,y] - x=1,2,3; y=must be defined if x{...}\n                                                //      PERL operators\n                '->'                            :   4,\n                '++'                            :   4,\n                '--'                            :   4,\n                '**'                            :   4,\n                                                        //   ! ~ \\ and unary + and -\n                '=~'                            :   4,\n                '!~'                            :   4,\n                '*'                             :   4,\n                '/'                             :   4,\n                '%'                             :   4,\n                'x'                             :   4,\n                '+'                             :   4,\n                '-'                             :   4,\n                '.'                             :   4,\n                '<<'                            :   4,\n                '>>'                            :   4,\n                                                        //   named unary operators\n                '<'                             :   4,\n                '>'                             :   4,\n                '<='                            :   4,\n                '>='                            :   4,\n                'lt'                            :   4,\n                'gt'                            :   4,\n                'le'                            :   4,\n                'ge'                            :   4,\n                '=='                            :   4,\n                '!='                            :   4,\n                '<=>'                           :   4,\n                'eq'                            :   4,\n                'ne'                            :   4,\n                'cmp'                           :   4,\n                '~~'                            :   4,\n                '&'                             :   4,\n                '|'                             :   4,\n                '^'                             :   4,\n                '&&'                            :   4,\n                '||'                            :   4,\n                '//'                            :   4,\n                '..'                            :   4,\n                '...'                           :   4,\n                '?'                             :   4,\n                ':'                             :   4,\n                '='                             :   4,\n                '+='                            :   4,\n                '-='                            :   4,\n                '*='                            :   4,  //   etc. ???\n                ','                             :   4,\n                '=>'                            :   4,\n                '::'                            :   4,\n                                                        //   list operators (rightward)\n                'not'                           :   4,\n                'and'                           :   4,\n                'or'                            :   4,\n                'xor'                           :   4,\n                                                //      PERL predefined variables (I know, what this is a paranoid idea, but may be needed for people, who learn PERL, and for me as well, ...and may be for you?;)\n                'BEGIN'                         :   [5,1],\n                'END'                           :   [5,1],\n                'PRINT'                         :   [5,1],\n                'PRINTF'                        :   [5,1],\n                'GETC'                          :   [5,1],\n                'READ'                          :   [5,1],\n                'READLINE'                      :   [5,1],\n                'DESTROY'                       :   [5,1],\n                'TIE'                           :   [5,1],\n                'TIEHANDLE'                     :   [5,1],\n                'UNTIE'                         :   [5,1],\n                'STDIN'                         :    5,\n                'STDIN_TOP'                     :    5,\n                'STDOUT'                        :    5,\n                'STDOUT_TOP'                    :    5,\n                'STDERR'                        :    5,\n                'STDERR_TOP'                    :    5,\n                '$ARG'                          :    5,\n                '$_'                            :    5,\n                '@ARG'                          :    5,\n                '@_'                            :    5,\n                '$LIST_SEPARATOR'               :    5,\n                '$\"'                            :    5,\n                '$PROCESS_ID'                   :    5,\n                '$PID'                          :    5,\n                '$$'                            :    5,\n                '$REAL_GROUP_ID'                :    5,\n                '$GID'                          :    5,\n                '$('                            :    5,\n                '$EFFECTIVE_GROUP_ID'           :    5,\n                '$EGID'                         :    5,\n                '$)'                            :    5,\n                '$PROGRAM_NAME'                 :    5,\n                '$0'                            :    5,\n                '$SUBSCRIPT_SEPARATOR'          :    5,\n                '$SUBSEP'                       :    5,\n                '$;'                            :    5,\n                '$REAL_USER_ID'                 :    5,\n                '$UID'                          :    5,\n                '$<'                            :    5,\n                '$EFFECTIVE_USER_ID'            :    5,\n                '$EUID'                         :    5,\n                '$>'                            :    5,\n                '$a'                            :    5,\n                '$b'                            :    5,\n                '$COMPILING'                    :    5,\n                '$^C'                           :    5,\n                '$DEBUGGING'                    :    5,\n                '$^D'                           :    5,\n                '${^ENCODING}'                  :    5,\n                '$ENV'                          :    5,\n                '%ENV'                          :    5,\n                '$SYSTEM_FD_MAX'                :    5,\n                '$^F'                           :    5,\n                '@F'                            :    5,\n                '${^GLOBAL_PHASE}'              :    5,\n                '$^H'                           :    5,\n                '%^H'                           :    5,\n                '@INC'                          :    5,\n                '%INC'                          :    5,\n                '$INPLACE_EDIT'                 :    5,\n                '$^I'                           :    5,\n                '$^M'                           :    5,\n                '$OSNAME'                       :    5,\n                '$^O'                           :    5,\n                '${^OPEN}'                      :    5,\n                '$PERLDB'                       :    5,\n                '$^P'                           :    5,\n                '$SIG'                          :    5,\n                '%SIG'                          :    5,\n                '$BASETIME'                     :    5,\n                '$^T'                           :    5,\n                '${^TAINT}'                     :    5,\n                '${^UNICODE}'                   :    5,\n                '${^UTF8CACHE}'                 :    5,\n                '${^UTF8LOCALE}'                :    5,\n                '$PERL_VERSION'                 :    5,\n                '$^V'                           :    5,\n                '${^WIN32_SLOPPY_STAT}'         :    5,\n                '$EXECUTABLE_NAME'              :    5,\n                '$^X'                           :    5,\n                '$1'                            :    5, // - regexp $1, $2...\n                '$MATCH'                        :    5,\n                '$&'                            :    5,\n                '${^MATCH}'                     :    5,\n                '$PREMATCH'                     :    5,\n                '$`'                            :    5,\n                '${^PREMATCH}'                  :    5,\n                '$POSTMATCH'                    :    5,\n                \"$'\"                            :    5,\n                '${^POSTMATCH}'                 :    5,\n                '$LAST_PAREN_MATCH'             :    5,\n                '$+'                            :    5,\n                '$LAST_SUBMATCH_RESULT'         :    5,\n                '$^N'                           :    5,\n                '@LAST_MATCH_END'               :    5,\n                '@+'                            :    5,\n                '%LAST_PAREN_MATCH'             :    5,\n                '%+'                            :    5,\n                '@LAST_MATCH_START'             :    5,\n                '@-'                            :    5,\n                '%LAST_MATCH_START'             :    5,\n                '%-'                            :    5,\n                '$LAST_REGEXP_CODE_RESULT'      :    5,\n                '$^R'                           :    5,\n                '${^RE_DEBUG_FLAGS}'            :    5,\n                '${^RE_TRIE_MAXBUF}'            :    5,\n                '$ARGV'                         :    5,\n                '@ARGV'                         :    5,\n                'ARGV'                          :    5,\n                'ARGVOUT'                       :    5,\n                '$OUTPUT_FIELD_SEPARATOR'       :    5,\n                '$OFS'                          :    5,\n                '$,'                            :    5,\n                '$INPUT_LINE_NUMBER'            :    5,\n                '$NR'                           :    5,\n                '$.'                            :    5,\n                '$INPUT_RECORD_SEPARATOR'       :    5,\n                '$RS'                           :    5,\n                '$/'                            :    5,\n                '$OUTPUT_RECORD_SEPARATOR'      :    5,\n                '$ORS'                          :    5,\n                '$\\\\'                           :    5,\n                '$OUTPUT_AUTOFLUSH'             :    5,\n                '$|'                            :    5,\n                '$ACCUMULATOR'                  :    5,\n                '$^A'                           :    5,\n                '$FORMAT_FORMFEED'              :    5,\n                '$^L'                           :    5,\n                '$FORMAT_PAGE_NUMBER'           :    5,\n                '$%'                            :    5,\n                '$FORMAT_LINES_LEFT'            :    5,\n                '$-'                            :    5,\n                '$FORMAT_LINE_BREAK_CHARACTERS' :    5,\n                '$:'                            :    5,\n                '$FORMAT_LINES_PER_PAGE'        :    5,\n                '$='                            :    5,\n                '$FORMAT_TOP_NAME'              :    5,\n                '$^'                            :    5,\n                '$FORMAT_NAME'                  :    5,\n                '$~'                            :    5,\n                '${^CHILD_ERROR_NATIVE}'        :    5,\n                '$EXTENDED_OS_ERROR'            :    5,\n                '$^E'                           :    5,\n                '$EXCEPTIONS_BEING_CAUGHT'      :    5,\n                '$^S'                           :    5,\n                '$WARNING'                      :    5,\n                '$^W'                           :    5,\n                '${^WARNING_BITS}'              :    5,\n                '$OS_ERROR'                     :    5,\n                '$ERRNO'                        :    5,\n                '$!'                            :    5,\n                '%OS_ERROR'                     :    5,\n                '%ERRNO'                        :    5,\n                '%!'                            :    5,\n                '$CHILD_ERROR'                  :    5,\n                '$?'                            :    5,\n                '$EVAL_ERROR'                   :    5,\n                '$@'                            :    5,\n                '$OFMT'                         :    5,\n                '$#'                            :    5,\n                '$*'                            :    5,\n                '$ARRAY_BASE'                   :    5,\n                '$['                            :    5,\n                '$OLD_PERL_VERSION'             :    5,\n                '$]'                            :    5,\n                                                //      PERL blocks\n                'if'                            :[1,1],\n                elsif                           :[1,1],\n                'else'                          :[1,1],\n                'while'                         :[1,1],\n                unless                          :[1,1],\n                'for'                           :[1,1],\n                foreach                         :[1,1],\n                                                //      PERL functions\n                'abs'                           :1,     // - absolute value function\n                accept                          :1,     // - accept an incoming socket connect\n                alarm                           :1,     // - schedule a SIGALRM\n                'atan2'                         :1,     // - arctangent of Y/X in the range -PI to PI\n                bind                            :1,     // - binds an address to a socket\n                binmode                         :1,     // - prepare binary files for I/O\n                bless                           :1,     // - create an object\n                bootstrap                       :1,     //\n                'break'                         :1,     // - break out of a \"given\" block\n                caller                          :1,     // - get context of the current subroutine call\n                chdir                           :1,     // - change your current working directory\n                chmod                           :1,     // - changes the permissions on a list of files\n                chomp                           :1,     // - remove a trailing record separator from a string\n                chop                            :1,     // - remove the last character from a string\n                chown                           :1,     // - change the ownership on a list of files\n                chr                             :1,     // - get character this number represents\n                chroot                          :1,     // - make directory new root for path lookups\n                close                           :1,     // - close file (or pipe or socket) handle\n                closedir                        :1,     // - close directory handle\n                connect                         :1,     // - connect to a remote socket\n                'continue'                      :[1,1], // - optional trailing block in a while or foreach\n                'cos'                           :1,     // - cosine function\n                crypt                           :1,     // - one-way passwd-style encryption\n                dbmclose                        :1,     // - breaks binding on a tied dbm file\n                dbmopen                         :1,     // - create binding on a tied dbm file\n                'default'                       :1,     //\n                defined                         :1,     // - test whether a value, variable, or function is defined\n                'delete'                        :1,     // - deletes a value from a hash\n                die                             :1,     // - raise an exception or bail out\n                'do'                            :1,     // - turn a BLOCK into a TERM\n                dump                            :1,     // - create an immediate core dump\n                each                            :1,     // - retrieve the next key/value pair from a hash\n                endgrent                        :1,     // - be done using group file\n                endhostent                      :1,     // - be done using hosts file\n                endnetent                       :1,     // - be done using networks file\n                endprotoent                     :1,     // - be done using protocols file\n                endpwent                        :1,     // - be done using passwd file\n                endservent                      :1,     // - be done using services file\n                eof                             :1,     // - test a filehandle for its end\n                'eval'                          :1,     // - catch exceptions or compile and run code\n                'exec'                          :1,     // - abandon this program to run another\n                exists                          :1,     // - test whether a hash key is present\n                exit                            :1,     // - terminate this program\n                'exp'                           :1,     // - raise I to a power\n                fcntl                           :1,     // - file control system call\n                fileno                          :1,     // - return file descriptor from filehandle\n                flock                           :1,     // - lock an entire file with an advisory lock\n                fork                            :1,     // - create a new process just like this one\n                format                          :1,     // - declare a picture format with use by the write() function\n                formline                        :1,     // - internal function used for formats\n                getc                            :1,     // - get the next character from the filehandle\n                getgrent                        :1,     // - get next group record\n                getgrgid                        :1,     // - get group record given group user ID\n                getgrnam                        :1,     // - get group record given group name\n                gethostbyaddr                   :1,     // - get host record given its address\n                gethostbyname                   :1,     // - get host record given name\n                gethostent                      :1,     // - get next hosts record\n                getlogin                        :1,     // - return who logged in at this tty\n                getnetbyaddr                    :1,     // - get network record given its address\n                getnetbyname                    :1,     // - get networks record given name\n                getnetent                       :1,     // - get next networks record\n                getpeername                     :1,     // - find the other end of a socket connection\n                getpgrp                         :1,     // - get process group\n                getppid                         :1,     // - get parent process ID\n                getpriority                     :1,     // - get current nice value\n                getprotobyname                  :1,     // - get protocol record given name\n                getprotobynumber                :1,     // - get protocol record numeric protocol\n                getprotoent                     :1,     // - get next protocols record\n                getpwent                        :1,     // - get next passwd record\n                getpwnam                        :1,     // - get passwd record given user login name\n                getpwuid                        :1,     // - get passwd record given user ID\n                getservbyname                   :1,     // - get services record given its name\n                getservbyport                   :1,     // - get services record given numeric port\n                getservent                      :1,     // - get next services record\n                getsockname                     :1,     // - retrieve the sockaddr for a given socket\n                getsockopt                      :1,     // - get socket options on a given socket\n                given                           :1,     //\n                glob                            :1,     // - expand filenames using wildcards\n                gmtime                          :1,     // - convert UNIX time into record or string using Greenwich time\n                'goto'                          :1,     // - create spaghetti code\n                grep                            :1,     // - locate elements in a list test true against a given criterion\n                hex                             :1,     // - convert a string to a hexadecimal number\n                'import'                        :1,     // - patch a module's namespace into your own\n                index                           :1,     // - find a substring within a string\n                'int'                           :1,     // - get the integer portion of a number\n                ioctl                           :1,     // - system-dependent device control system call\n                'join'                          :1,     // - join a list into a string using a separator\n                keys                            :1,     // - retrieve list of indices from a hash\n                kill                            :1,     // - send a signal to a process or process group\n                last                            :1,     // - exit a block prematurely\n                lc                              :1,     // - return lower-case version of a string\n                lcfirst                         :1,     // - return a string with just the next letter in lower case\n                length                          :1,     // - return the number of bytes in a string\n                'link'                          :1,     // - create a hard link in the filesytem\n                listen                          :1,     // - register your socket as a server\n                local                           : 2,    // - create a temporary value for a global variable (dynamic scoping)\n                localtime                       :1,     // - convert UNIX time into record or string using local time\n                lock                            :1,     // - get a thread lock on a variable, subroutine, or method\n                'log'                           :1,     // - retrieve the natural logarithm for a number\n                lstat                           :1,     // - stat a symbolic link\n                m                               :null,  // - match a string with a regular expression pattern\n                map                             :1,     // - apply a change to a list to get back a new list with the changes\n                mkdir                           :1,     // - create a directory\n                msgctl                          :1,     // - SysV IPC message control operations\n                msgget                          :1,     // - get SysV IPC message queue\n                msgrcv                          :1,     // - receive a SysV IPC message from a message queue\n                msgsnd                          :1,     // - send a SysV IPC message to a message queue\n                my                              : 2,    // - declare and assign a local variable (lexical scoping)\n                'new'                           :1,     //\n                next                            :1,     // - iterate a block prematurely\n                no                              :1,     // - unimport some module symbols or semantics at compile time\n                oct                             :1,     // - convert a string to an octal number\n                open                            :1,     // - open a file, pipe, or descriptor\n                opendir                         :1,     // - open a directory\n                ord                             :1,     // - find a character's numeric representation\n                our                             : 2,    // - declare and assign a package variable (lexical scoping)\n                pack                            :1,     // - convert a list into a binary representation\n                'package'                       :1,     // - declare a separate global namespace\n                pipe                            :1,     // - open a pair of connected filehandles\n                pop                             :1,     // - remove the last element from an array and return it\n                pos                             :1,     // - find or set the offset for the last/next m//g search\n                print                           :1,     // - output a list to a filehandle\n                printf                          :1,     // - output a formatted list to a filehandle\n                prototype                       :1,     // - get the prototype (if any) of a subroutine\n                push                            :1,     // - append one or more elements to an array\n                q                               :null,  // - singly quote a string\n                qq                              :null,  // - doubly quote a string\n                qr                              :null,  // - Compile pattern\n                quotemeta                       :null,  // - quote regular expression magic characters\n                qw                              :null,  // - quote a list of words\n                qx                              :null,  // - backquote quote a string\n                rand                            :1,     // - retrieve the next pseudorandom number\n                read                            :1,     // - fixed-length buffered input from a filehandle\n                readdir                         :1,     // - get a directory from a directory handle\n                readline                        :1,     // - fetch a record from a file\n                readlink                        :1,     // - determine where a symbolic link is pointing\n                readpipe                        :1,     // - execute a system command and collect standard output\n                recv                            :1,     // - receive a message over a Socket\n                redo                            :1,     // - start this loop iteration over again\n                ref                             :1,     // - find out the type of thing being referenced\n                rename                          :1,     // - change a filename\n                require                         :1,     // - load in external functions from a library at runtime\n                reset                           :1,     // - clear all variables of a given name\n                'return'                        :1,     // - get out of a function early\n                reverse                         :1,     // - flip a string or a list\n                rewinddir                       :1,     // - reset directory handle\n                rindex                          :1,     // - right-to-left substring search\n                rmdir                           :1,     // - remove a directory\n                s                               :null,  // - replace a pattern with a string\n                say                             :1,     // - print with newline\n                scalar                          :1,     // - force a scalar context\n                seek                            :1,     // - reposition file pointer for random-access I/O\n                seekdir                         :1,     // - reposition directory pointer\n                select                          :1,     // - reset default output or do I/O multiplexing\n                semctl                          :1,     // - SysV semaphore control operations\n                semget                          :1,     // - get set of SysV semaphores\n                semop                           :1,     // - SysV semaphore operations\n                send                            :1,     // - send a message over a socket\n                setgrent                        :1,     // - prepare group file for use\n                sethostent                      :1,     // - prepare hosts file for use\n                setnetent                       :1,     // - prepare networks file for use\n                setpgrp                         :1,     // - set the process group of a process\n                setpriority                     :1,     // - set a process's nice value\n                setprotoent                     :1,     // - prepare protocols file for use\n                setpwent                        :1,     // - prepare passwd file for use\n                setservent                      :1,     // - prepare services file for use\n                setsockopt                      :1,     // - set some socket options\n                shift                           :1,     // - remove the first element of an array, and return it\n                shmctl                          :1,     // - SysV shared memory operations\n                shmget                          :1,     // - get SysV shared memory segment identifier\n                shmread                         :1,     // - read SysV shared memory\n                shmwrite                        :1,     // - write SysV shared memory\n                shutdown                        :1,     // - close down just half of a socket connection\n                'sin'                           :1,     // - return the sine of a number\n                sleep                           :1,     // - block for some number of seconds\n                socket                          :1,     // - create a socket\n                socketpair                      :1,     // - create a pair of sockets\n                'sort'                          :1,     // - sort a list of values\n                splice                          :1,     // - add or remove elements anywhere in an array\n                'split'                         :1,     // - split up a string using a regexp delimiter\n                sprintf                         :1,     // - formatted print into a string\n                'sqrt'                          :1,     // - square root function\n                srand                           :1,     // - seed the random number generator\n                stat                            :1,     // - get a file's status information\n                state                           :1,     // - declare and assign a state variable (persistent lexical scoping)\n                study                           :1,     // - optimize input data for repeated searches\n                'sub'                           :1,     // - declare a subroutine, possibly anonymously\n                'substr'                        :1,     // - get or alter a portion of a stirng\n                symlink                         :1,     // - create a symbolic link to a file\n                syscall                         :1,     // - execute an arbitrary system call\n                sysopen                         :1,     // - open a file, pipe, or descriptor\n                sysread                         :1,     // - fixed-length unbuffered input from a filehandle\n                sysseek                         :1,     // - position I/O pointer on handle used with sysread and syswrite\n                system                          :1,     // - run a separate program\n                syswrite                        :1,     // - fixed-length unbuffered output to a filehandle\n                tell                            :1,     // - get current seekpointer on a filehandle\n                telldir                         :1,     // - get current seekpointer on a directory handle\n                tie                             :1,     // - bind a variable to an object class\n                tied                            :1,     // - get a reference to the object underlying a tied variable\n                time                            :1,     // - return number of seconds since 1970\n                times                           :1,     // - return elapsed time for self and child processes\n                tr                              :null,  // - transliterate a string\n                truncate                        :1,     // - shorten a file\n                uc                              :1,     // - return upper-case version of a string\n                ucfirst                         :1,     // - return a string with just the next letter in upper case\n                umask                           :1,     // - set file creation mode mask\n                undef                           :1,     // - remove a variable or function definition\n                unlink                          :1,     // - remove one link to a file\n                unpack                          :1,     // - convert binary structure into normal perl variables\n                unshift                         :1,     // - prepend more elements to the beginning of a list\n                untie                           :1,     // - break a tie binding to a variable\n                use                             :1,     // - load in a module at compile time\n                utime                           :1,     // - set a file's last access and modify times\n                values                          :1,     // - return a list of the values in a hash\n                vec                             :1,     // - test or set particular bits in a string\n                wait                            :1,     // - wait for any child process to die\n                waitpid                         :1,     // - wait for a particular child process to die\n                wantarray                       :1,     // - get void vs scalar vs list context of current subroutine call\n                warn                            :1,     // - print debugging info\n                when                            :1,     //\n                write                           :1,     // - print a picture record\n                y                               :null}; // - transliterate a string\n\n        var RXstyle=\"string-2\";\n        var RXmodifiers=/[goseximacplud]/;              // NOTE: \"m\", \"s\", \"y\" and \"tr\" need to correct real modifiers for each regexp type\n\n        function tokenChain(stream,state,chain,style,tail){     // NOTE: chain.length > 2 is not working now (it's for s[...][...]geos;)\n                state.chain=null;                               //                                                          12   3tail\n                state.style=null;\n                state.tail=null;\n                state.tokenize=function(stream,state){\n                        var e=false,c,i=0;\n                        while(c=stream.next()){\n                                if(c===chain[i]&&!e){\n                                        if(chain[++i]!==undefined){\n                                                state.chain=chain[i];\n                                                state.style=style;\n                                                state.tail=tail;}\n                                        else if(tail)\n                                                stream.eatWhile(tail);\n                                        state.tokenize=tokenPerl;\n                                        return style;}\n                                e=!e&&c==\"\\\\\";}\n                        return style;};\n                return state.tokenize(stream,state);}\n\n        function tokenSOMETHING(stream,state,string){\n                state.tokenize=function(stream,state){\n                        if(stream.string==string)\n                                state.tokenize=tokenPerl;\n                        stream.skipToEnd();\n                        return \"string\";};\n                return state.tokenize(stream,state);}\n\n        function tokenPerl(stream,state){\n                if(stream.eatSpace())\n                        return null;\n                if(state.chain)\n                        return tokenChain(stream,state,state.chain,state.style,state.tail);\n                if(stream.match(/^\\-?[\\d\\.]/,false))\n                        if(stream.match(/^(\\-?(\\d*\\.\\d+(e[+-]?\\d+)?|\\d+\\.\\d*)|0x[\\da-fA-F]+|0b[01]+|\\d+(e[+-]?\\d+)?)/))\n                                return 'number';\n                if(stream.match(/^<<(?=\\w)/)){                  // NOTE: <<SOMETHING\\n...\\nSOMETHING\\n\n                        stream.eatWhile(/\\w/);\n                        return tokenSOMETHING(stream,state,stream.current().substr(2));}\n                if(stream.sol()&&stream.match(/^\\=item(?!\\w)/)){// NOTE: \\n=item...\\n=cut\\n\n                        return tokenSOMETHING(stream,state,'=cut');}\n                var ch=stream.next();\n                if(ch=='\"'||ch==\"'\"){                           // NOTE: ' or \" or <<'SOMETHING'\\n...\\nSOMETHING\\n or <<\"SOMETHING\"\\n...\\nSOMETHING\\n\n                        if(prefix(stream, 3)==\"<<\"+ch){\n                                var p=stream.pos;\n                                stream.eatWhile(/\\w/);\n                                var n=stream.current().substr(1);\n                                if(n&&stream.eat(ch))\n                                        return tokenSOMETHING(stream,state,n);\n                                stream.pos=p;}\n                        return tokenChain(stream,state,[ch],\"string\");}\n                if(ch==\"q\"){\n                        var c=look(stream, -2);\n                        if(!(c&&/\\w/.test(c))){\n                                c=look(stream, 0);\n                                if(c==\"x\"){\n                                        c=look(stream, 1);\n                                        if(c==\"(\"){\n                                                eatSuffix(stream, 2);\n                                                return tokenChain(stream,state,[\")\"],RXstyle,RXmodifiers);}\n                                        if(c==\"[\"){\n                                                eatSuffix(stream, 2);\n                                                return tokenChain(stream,state,[\"]\"],RXstyle,RXmodifiers);}\n                                        if(c==\"{\"){\n                                                eatSuffix(stream, 2);\n                                                return tokenChain(stream,state,[\"}\"],RXstyle,RXmodifiers);}\n                                        if(c==\"<\"){\n                                                eatSuffix(stream, 2);\n                                                return tokenChain(stream,state,[\">\"],RXstyle,RXmodifiers);}\n                                        if(/[\\^'\"!~\\/]/.test(c)){\n                                                eatSuffix(stream, 1);\n                                                return tokenChain(stream,state,[stream.eat(c)],RXstyle,RXmodifiers);}}\n                                else if(c==\"q\"){\n                                        c=look(stream, 1);\n                                        if(c==\"(\"){\n                                                eatSuffix(stream, 2);\n                                                return tokenChain(stream,state,[\")\"],\"string\");}\n                                        if(c==\"[\"){\n                                                eatSuffix(stream, 2);\n                                                return tokenChain(stream,state,[\"]\"],\"string\");}\n                                        if(c==\"{\"){\n                                                eatSuffix(stream, 2);\n                                                return tokenChain(stream,state,[\"}\"],\"string\");}\n                                        if(c==\"<\"){\n                                                eatSuffix(stream, 2);\n                                                return tokenChain(stream,state,[\">\"],\"string\");}\n                                        if(/[\\^'\"!~\\/]/.test(c)){\n                                                eatSuffix(stream, 1);\n                                                return tokenChain(stream,state,[stream.eat(c)],\"string\");}}\n                                else if(c==\"w\"){\n                                        c=look(stream, 1);\n                                        if(c==\"(\"){\n                                                eatSuffix(stream, 2);\n                                                return tokenChain(stream,state,[\")\"],\"bracket\");}\n                                        if(c==\"[\"){\n                                                eatSuffix(stream, 2);\n                                                return tokenChain(stream,state,[\"]\"],\"bracket\");}\n                                        if(c==\"{\"){\n                                                eatSuffix(stream, 2);\n                                                return tokenChain(stream,state,[\"}\"],\"bracket\");}\n                                        if(c==\"<\"){\n                                                eatSuffix(stream, 2);\n                                                return tokenChain(stream,state,[\">\"],\"bracket\");}\n                                        if(/[\\^'\"!~\\/]/.test(c)){\n                                                eatSuffix(stream, 1);\n                                                return tokenChain(stream,state,[stream.eat(c)],\"bracket\");}}\n                                else if(c==\"r\"){\n                                        c=look(stream, 1);\n                                        if(c==\"(\"){\n                                                eatSuffix(stream, 2);\n                                                return tokenChain(stream,state,[\")\"],RXstyle,RXmodifiers);}\n                                        if(c==\"[\"){\n                                                eatSuffix(stream, 2);\n                                                return tokenChain(stream,state,[\"]\"],RXstyle,RXmodifiers);}\n                                        if(c==\"{\"){\n                                                eatSuffix(stream, 2);\n                                                return tokenChain(stream,state,[\"}\"],RXstyle,RXmodifiers);}\n                                        if(c==\"<\"){\n                                                eatSuffix(stream, 2);\n                                                return tokenChain(stream,state,[\">\"],RXstyle,RXmodifiers);}\n                                        if(/[\\^'\"!~\\/]/.test(c)){\n                                                eatSuffix(stream, 1);\n                                                return tokenChain(stream,state,[stream.eat(c)],RXstyle,RXmodifiers);}}\n                                else if(/[\\^'\"!~\\/(\\[{<]/.test(c)){\n                                        if(c==\"(\"){\n                                                eatSuffix(stream, 1);\n                                                return tokenChain(stream,state,[\")\"],\"string\");}\n                                        if(c==\"[\"){\n                                                eatSuffix(stream, 1);\n                                                return tokenChain(stream,state,[\"]\"],\"string\");}\n                                        if(c==\"{\"){\n                                                eatSuffix(stream, 1);\n                                                return tokenChain(stream,state,[\"}\"],\"string\");}\n                                        if(c==\"<\"){\n                                                eatSuffix(stream, 1);\n                                                return tokenChain(stream,state,[\">\"],\"string\");}\n                                        if(/[\\^'\"!~\\/]/.test(c)){\n                                                return tokenChain(stream,state,[stream.eat(c)],\"string\");}}}}\n                if(ch==\"m\"){\n                        var c=look(stream, -2);\n                        if(!(c&&/\\w/.test(c))){\n                                c=stream.eat(/[(\\[{<\\^'\"!~\\/]/);\n                                if(c){\n                                        if(/[\\^'\"!~\\/]/.test(c)){\n                                                return tokenChain(stream,state,[c],RXstyle,RXmodifiers);}\n                                        if(c==\"(\"){\n                                                return tokenChain(stream,state,[\")\"],RXstyle,RXmodifiers);}\n                                        if(c==\"[\"){\n                                                return tokenChain(stream,state,[\"]\"],RXstyle,RXmodifiers);}\n                                        if(c==\"{\"){\n                                                return tokenChain(stream,state,[\"}\"],RXstyle,RXmodifiers);}\n                                        if(c==\"<\"){\n                                                return tokenChain(stream,state,[\">\"],RXstyle,RXmodifiers);}}}}\n                if(ch==\"s\"){\n                        var c=/[\\/>\\]})\\w]/.test(look(stream, -2));\n                        if(!c){\n                                c=stream.eat(/[(\\[{<\\^'\"!~\\/]/);\n                                if(c){\n                                        if(c==\"[\")\n                                                return tokenChain(stream,state,[\"]\",\"]\"],RXstyle,RXmodifiers);\n                                        if(c==\"{\")\n                                                return tokenChain(stream,state,[\"}\",\"}\"],RXstyle,RXmodifiers);\n                                        if(c==\"<\")\n                                                return tokenChain(stream,state,[\">\",\">\"],RXstyle,RXmodifiers);\n                                        if(c==\"(\")\n                                                return tokenChain(stream,state,[\")\",\")\"],RXstyle,RXmodifiers);\n                                        return tokenChain(stream,state,[c,c],RXstyle,RXmodifiers);}}}\n                if(ch==\"y\"){\n                        var c=/[\\/>\\]})\\w]/.test(look(stream, -2));\n                        if(!c){\n                                c=stream.eat(/[(\\[{<\\^'\"!~\\/]/);\n                                if(c){\n                                        if(c==\"[\")\n                                                return tokenChain(stream,state,[\"]\",\"]\"],RXstyle,RXmodifiers);\n                                        if(c==\"{\")\n                                                return tokenChain(stream,state,[\"}\",\"}\"],RXstyle,RXmodifiers);\n                                        if(c==\"<\")\n                                                return tokenChain(stream,state,[\">\",\">\"],RXstyle,RXmodifiers);\n                                        if(c==\"(\")\n                                                return tokenChain(stream,state,[\")\",\")\"],RXstyle,RXmodifiers);\n                                        return tokenChain(stream,state,[c,c],RXstyle,RXmodifiers);}}}\n                if(ch==\"t\"){\n                        var c=/[\\/>\\]})\\w]/.test(look(stream, -2));\n                        if(!c){\n                                c=stream.eat(\"r\");if(c){\n                                c=stream.eat(/[(\\[{<\\^'\"!~\\/]/);\n                                if(c){\n                                        if(c==\"[\")\n                                                return tokenChain(stream,state,[\"]\",\"]\"],RXstyle,RXmodifiers);\n                                        if(c==\"{\")\n                                                return tokenChain(stream,state,[\"}\",\"}\"],RXstyle,RXmodifiers);\n                                        if(c==\"<\")\n                                                return tokenChain(stream,state,[\">\",\">\"],RXstyle,RXmodifiers);\n                                        if(c==\"(\")\n                                                return tokenChain(stream,state,[\")\",\")\"],RXstyle,RXmodifiers);\n                                        return tokenChain(stream,state,[c,c],RXstyle,RXmodifiers);}}}}\n                if(ch==\"`\"){\n                        return tokenChain(stream,state,[ch],\"variable-2\");}\n                if(ch==\"/\"){\n                        if(!/~\\s*$/.test(prefix(stream)))\n                                return \"operator\";\n                        else\n                                return tokenChain(stream,state,[ch],RXstyle,RXmodifiers);}\n                if(ch==\"$\"){\n                        var p=stream.pos;\n                        if(stream.eatWhile(/\\d/)||stream.eat(\"{\")&&stream.eatWhile(/\\d/)&&stream.eat(\"}\"))\n                                return \"variable-2\";\n                        else\n                                stream.pos=p;}\n                if(/[$@%]/.test(ch)){\n                        var p=stream.pos;\n                        if(stream.eat(\"^\")&&stream.eat(/[A-Z]/)||!/[@$%&]/.test(look(stream, -2))&&stream.eat(/[=|\\\\\\-#?@;:&`~\\^!\\[\\]*'\"$+.,\\/<>()]/)){\n                                var c=stream.current();\n                                if(PERL[c])\n                                        return \"variable-2\";}\n                        stream.pos=p;}\n                if(/[$@%&]/.test(ch)){\n                        if(stream.eatWhile(/[\\w$\\[\\]]/)||stream.eat(\"{\")&&stream.eatWhile(/[\\w$\\[\\]]/)&&stream.eat(\"}\")){\n                                var c=stream.current();\n                                if(PERL[c])\n                                        return \"variable-2\";\n                                else\n                                        return \"variable\";}}\n                if(ch==\"#\"){\n                        if(look(stream, -2)!=\"$\"){\n                                stream.skipToEnd();\n                                return \"comment\";}}\n                if(/[:+\\-\\^*$&%@=<>!?|\\/~\\.]/.test(ch)){\n                        var p=stream.pos;\n                        stream.eatWhile(/[:+\\-\\^*$&%@=<>!?|\\/~\\.]/);\n                        if(PERL[stream.current()])\n                                return \"operator\";\n                        else\n                                stream.pos=p;}\n                if(ch==\"_\"){\n                        if(stream.pos==1){\n                                if(suffix(stream, 6)==\"_END__\"){\n                                        return tokenChain(stream,state,['\\0'],\"comment\");}\n                                else if(suffix(stream, 7)==\"_DATA__\"){\n                                        return tokenChain(stream,state,['\\0'],\"variable-2\");}\n                                else if(suffix(stream, 7)==\"_C__\"){\n                                        return tokenChain(stream,state,['\\0'],\"string\");}}}\n                if(/\\w/.test(ch)){\n                        var p=stream.pos;\n                        if(look(stream, -2)==\"{\"&&(look(stream, 0)==\"}\"||stream.eatWhile(/\\w/)&&look(stream, 0)==\"}\"))\n                                return \"string\";\n                        else\n                                stream.pos=p;}\n                if(/[A-Z]/.test(ch)){\n                        var l=look(stream, -2);\n                        var p=stream.pos;\n                        stream.eatWhile(/[A-Z_]/);\n                        if(/[\\da-z]/.test(look(stream, 0))){\n                                stream.pos=p;}\n                        else{\n                                var c=PERL[stream.current()];\n                                if(!c)\n                                        return \"meta\";\n                                if(c[1])\n                                        c=c[0];\n                                if(l!=\":\"){\n                                        if(c==1)\n                                                return \"keyword\";\n                                        else if(c==2)\n                                                return \"def\";\n                                        else if(c==3)\n                                                return \"atom\";\n                                        else if(c==4)\n                                                return \"operator\";\n                                        else if(c==5)\n                                                return \"variable-2\";\n                                        else\n                                                return \"meta\";}\n                                else\n                                        return \"meta\";}}\n                if(/[a-zA-Z_]/.test(ch)){\n                        var l=look(stream, -2);\n                        stream.eatWhile(/\\w/);\n                        var c=PERL[stream.current()];\n                        if(!c)\n                                return \"meta\";\n                        if(c[1])\n                                c=c[0];\n                        if(l!=\":\"){\n                                if(c==1)\n                                        return \"keyword\";\n                                else if(c==2)\n                                        return \"def\";\n                                else if(c==3)\n                                        return \"atom\";\n                                else if(c==4)\n                                        return \"operator\";\n                                else if(c==5)\n                                        return \"variable-2\";\n                                else\n                                        return \"meta\";}\n                        else\n                                return \"meta\";}\n                return null;}\n\n        return {\n            startState: function() {\n                return {\n                    tokenize: tokenPerl,\n                    chain: null,\n                    style: null,\n                    tail: null\n                };\n            },\n            token: function(stream, state) {\n                return (state.tokenize || tokenPerl)(stream, state);\n            },\n            lineComment: '#'\n        };\n});\n\nCodeMirror.registerHelper(\"wordChars\", \"perl\", /[\\w$]/);\n\nCodeMirror.defineMIME(\"text/x-perl\", \"perl\");\n\n// it's like \"peek\", but need for look-ahead or look-behind if index < 0\nfunction look(stream, c){\n  return stream.string.charAt(stream.pos+(c||0));\n}\n\n// return a part of prefix of current stream from current position\nfunction prefix(stream, c){\n  if(c){\n    var x=stream.pos-c;\n    return stream.string.substr((x>=0?x:0),c);}\n  else{\n    return stream.string.substr(0,stream.pos-1);\n  }\n}\n\n// return a part of suffix of current stream from current position\nfunction suffix(stream, c){\n  var y=stream.string.length;\n  var x=y-stream.pos+1;\n  return stream.string.substr(stream.pos,(c&&c<y?c:x));\n}\n\n// eating and vomiting a part of stream from current position\nfunction eatSuffix(stream, c){\n  var x=stream.pos+c;\n  var y;\n  if(x<=0)\n    stream.pos=0;\n  else if(x>=(y=stream.string.length-1))\n    stream.pos=y;\n  else\n    stream.pos=x;\n}\n\n});\n"]}