Hmmm, ClearCase. Loved that system...

while(<>) {
   next unless /^-+\[[^\]]+\]-*\|-*\[[^0-9]+([^\]]+)\]/;
   print "$1\n";
}
[download]

Wow, that looks like line noise :)
--
Mike