if (/^\s*\\code$/ .. /\\endcode/ && !/^$/) {
$i=length($1) if /^(\s*)\\code$/;
print substr($_,$i),"\n";
+} elsif (s/^(\s*)<pre>$/$1<pre class="fragment">/ .. /<\/pre>/ && !/^$/) {
+ $i=length($1) if /^(\s*)<pre class="fragment">$/;
+ print substr($_,$i),"\n";
} else {
print $_,"\n";
}