blob: e785f986e623e2f72145c62624a0106af1765d64 (
plain)
1
2
3
4
5
6
7
8
9
10
11
12
13
14
15
16
17
18
19
20
|
#!/usr/bin/perl
use warnings;
use strict;
my ($begun, $ended);
while (<>) {
chomp;
if (not $begun) {
s/.*<math class="eqn">// or next;
$begun = 1;
next unless length;
}
s/<\/math>.*// and $ended = 1;
s/^ *//;
print "$_\n" if length;
exit 0 if $ended;
}
die "unexpected end of file";
|
