";
out:foreach(@all){
next out if ((grep /\=\=\=/, $_) || (grep /^.+\s+\.\s*$/, $_));
if (grep /\+\+\+/, $_){
$_ =~ s#^.+[+++].+$# | #;
print "$_
";
next out;
}
foreach $tag (@wt){
if ( grep /$tag/, $_ ){
$_ =~ /^(\w+\s+\d+).+$/;
print " $1,";
print " $tag ";
next out;
}}
$_ =~ /^\w+\s+\d+(.+\s+.+)$/;
print " ";
}
print " |