# # this works pretty well, although lately it's # been missing the subroutine listings on the # sides, and i don't know why. --tom # perl:\ :pb=^\d?sub\d\p\d?{:\ :bb={:be=}:cb=#:ce=$:sb=":se=\e":lb=':\ :le=\e':tl:\ :kw=continue do defined die dump if else elsif exit eval each for foreach\ format goto join keys last local next package return reset redo values\ sub study until unless undef while #else #endif #if #ifdef #ifndef #include\ #undef # define else endif if ifdef ifndef include undef: