#!/usr/bin/perl
#
# parse the pubmed links to searchable format
#
use warnings;
use strict;
use File::Basename;

my $within = 0;        # within field area
my $space = 0;        # was last line space

local $/ = '*FIELD* RF';
<DATA>; #Skip prefix stuff

$/ = "\n\n"; #Read a "record" at a time

while (<DATA>)
  {
  chomp;
  exit if m/\*FIELD\*/;

  tr/\n/ /d;
  my $record = $_;

  if ($record =~ m/^[^:]+:.+?\. (.+)$/)
    {
    my $extra = $1;
    if ($extra =~ m/(.+?) (\d+): (\d+)-\d+, (\d+)./)
      {
      print "${1}[JO] AND ${4}[DP] AND ${2}[VI] AND ${3}[PG]\n";
      }
    }
  }