foreach $line (@FILE) {
  ($id_number, $title, $date) = split(/\|/,$line);