4 while (s/\t/' 'x(8-length($`)%8)/e) {}
6 if (/^\s*\\code$/ .. /\\endcode/ && !/^$/) {
7 $i=length($1) if /^(\s*)\\code$/;
8 print substr($_,$i),"\n";
9 } elsif (s/^(\s*)<pre>$/$1<pre class="fragment">/ .. /<\/pre>/ && !/^$/) {
10 $i=length($1) if /^(\s*)<pre class="fragment">$/;
11 print substr($_,$i),"\n";