#!/usr/bin/perl use strict; my($firstsectnum, $codemode); $firstsectnum = $ARGV[1] - 1; if($firstsectnum eq ""){ $firstsectnum = 1; } $codemode = 0; while(){ if(//){ } elsif(/<\/HEAD>/){ } elsif(/Section: /){ } else{ if(/
/i){
	    s/
//i;
	    $codemode = 1;
	}
	if(/<\/pre>/i){
	    s/<\/pre>/<\/programlisting>/i;
	    $codemode = 0;
	}
	
	if($codemode == 0){
	    s///i;
	    s/<\/b>/<\/command>/i;
	    s///i;
	    s/<\/i>/<\/emphasis>/i;
	    s/
/<\/para>/i;
	}
	else{
	    s///i;
	    s/<\/b>//i;
	    s///i;
	    s/<\/i>//i;
	    s/
/<\/para>/i;
	}
	
	s/<\/p>//i;
	s/
//i;
	s/
//i;
	s/]*>[^<]*<\/a>//i;
	s/]*>//i;
	s/<\/font>//i;
	s/ //i;
	
	if(/(.*)<\/h[0-9]>/i){
	    print "$2\n";
	}
	else{
	    print $_;
	}
    }
}