Next Tricks of the Wizards 84

Filter::Util::Call

        ...
        if ($status >= 0) { 
          if (/^\s*  no  \s+  Rot13  \s*  ; # "no Rot13;"
                \s* (?: #.* )?  $           # Optional WS or comment 
              /x) {
            return $status;
          }
          tr/A-Za-z/N-ZA-Mn-za-m/;
        }
        ...


Next Copyright © 2003 M. J. Dominus