#!/usr/bin/perl
while
(
<>
)
{
print
"
$1
\n
"
if
(
/\(LEX \(([^ ]+) /
)
;
}
syntax highlighted by
Code2HTML
, v. 0.9.1