Select Code to Download

# read the whole file at once
# XXX: updated (thanks, jmcnamara and VSarkiss)
{ local $/; $file = <IN>; }
@titles = $file =~ /_\[\d]([^_]*)/g;

# read more lines as needed
while (<IN>) {
  if (/_\[\d]([^_]*)_/) {
...
    }
  }
}