1
2$BLABLA = <<'BLA';
3\newcommand{\ttindex}[1]{{\renewcommand{\_}{\protect\underscore}%
4                          \index{#1@{\tt #1}}}}
5BLA
6
7$BLABLA =~ s/[\\\{\}\[\]]/\\$&/g;
8
9sub pre_pre_process {
10   s/$BLABLA//i;
11}
12sub do_cmd_ttindex {
13    &do_cmd_index;
14}
15
161;
17