#!/usr/bin/perl-w -i my $css=' '; my $logo=qq(
>EMACSPEAK --Complete Audio Desktop
); while ( <>) { s@@$css@igo; s@@$logo@igo; s/^\s*\@title.*$//; s/^\s*\@kindex.*//; print; }