#!/usr/bin/perl
while(<>) {
  if (/\\newlabel\{([^{}]*)(\{(.)\})?}\{\{([^}]*)/) { print "$1$3 $4\n"; }
}
