#!/usr/bin/perl -w use strict; print < Blame
blame

EOF

my @lines = <>;

s!\[(.*?)\|(.*?)]!my $text = $1; (my $href = $2) =~ s/&/&/g; "$text"!eg foreach @lines;
my @orig = @lines;
s!\*\*(?=[^*])(.*?)(?<=[^*])\*\*!$1!g foreach @lines;
s!\*(?=[^*])(.*?)(?<=[^*])\*!$1!g foreach @lines;
s!_(.*?)_!$1 ? "$1" : '_'!eg foreach @lines;
@lines = map {
	if (/^(.*?)%%/) {
  	(
			"$1\%\n",
			"$1\%Annotations for index.txt\n",
			"$1\%***************\n",
			map("$1\%$_", @orig[0..3]),
			"$1\%.\n",
			"$1\%. etc\n",
			"$1\%.\n"
		);
	} else {
		$_;
	}
} @lines;
s!\%(.*)$!$1!m foreach @lines;
s!^(.*?:)!$1! foreach @lines;
print foreach @lines;

print <
		
		
			
		
		
		
	

EOF