my %funcs; my $comment; while (<>) { if ( /^# STANDARD (.*)/ ) { $comment = $1; } elsif ( /^function (\S+)$/ ) { $funcs{$1} = $comment; } } # now layout a nice HTML page that tabulates # the keys and values of %funcs print " blah blah blah \n"; print "\n" for ( sort keys %funcs ); print "

Name	Desc
$_	$funcs{$_}

blah blah blah \n";