foreach my $f (@ARGV) {

    print $f, "\n";
    open (F, $f); 
    while (<F>) {
	if (/^\[\d+ ?\|?\] [a-z]/) { print }
	if (/^[a-z]/) { print }
    }

}