my $file = join '', <IN>;
my @titles = $file =~ /_\[\d+\](.+?)_/sg;