heikkil

          "
        _c_enter  _q_uote     _e_macs-lisp    _L_aTeX:
        _l_atex   _e_xample   _p_erl          _i_ndex:
        _a_scii   _v_erse     _P_erl tangled  _I_NCLUDE:
        _s_rc     ^ ^         plant_u_ml      _H_TML:
        _h_tml    ^ ^         ^ ^             _A_SCII:
        "

          ("e" (progn (hot-expand "<s") (insert "emacs-lisp") (forward-line)))
          ("p" (progn (hot-expand "<s") (insert "perl") (forward-line)))

heikkil

<category name="Redundant Phrases" type="style">

  <!-- main source http://en.wikipedia.org/wiki/List_of_plain_English_words_and_phrases -->
  <!-- some rules belonging to other categories included -->
  <!-- xxx marks optional edge tokens that cause an error if uncommented -->

  <rule id="ABUNDANCE" name="abundance">
    <pattern>
      <token>abundance</token>
    </pattern>

heikkil

#!/usr/bin/env perl

=head1 NAME

obogrep - grep obo entries with a string

=head1 SYNOPSIS

B<obogrep> [B<--version> | [B<-?|-h|--help>] | [B<-g|--debug>] |
  [B<-v|--invert-match>] | [B<-c|--count>] |query obofile

heikkil

#!/usr/bin/env perl

package FastaSeq;
#use Mo qw'build default builder coerce is required';
use Mo;
has id => ();
has descr => ();
has seq => ();
1;