#!/usr/local/bin/perl -w

while (<>)
{
   my ($url, $book, $ref) = m|"(.*?)">(.*?) (.*)|;
   
   print "The Fourfold Gospel|Commentary|";
   print "http://ccel.wheaton.edu/m/mcgarvey/ffg/$url|";
   print "McGarvey and Pendleton|";
   print "http://ccel.wheaton.edu/m/mcgarvey/ffg/FFG000A.HTM|";
   $book =~ s/\.$//;
   print "$book|";
   if ($ref =~ m|(\d+):(\d+)-(\d+)$|)
     { print "$1|$2|$3"; }
   elsif ($ref =~ m|(\d+):(\d+), (\d+)$|)
     { print "$1|$2|$3"; }
   elsif ($ref =~ m|(\d+):(\d+)$|)
     { print "$1|$2|0"; }
   else
     { print "\nERROR: couldn't match $ref\n"; }
   print "||y|y|\n";
}