my (@tmp, @titles);
while (<IN>) {
  if ( my @tmp = m/\_[\d\](.+)_/g ) {
    push @titles, @tmp;
  }
}