#! /usr/bin/perl
# 
# Retrieves text from library html files
open(INFO,"/users/banchoff/public_html/abbott/LibraryExhibit/EAA/".$ARGV[0]."/".$ARGV[1]);
@lines = <INFO>;
$_ = "@lines";
@foo = split(/<!-- TEXT STARTS HERE -->/);
@bar = split(/<!-- TEXT ENDS HERE -->/,"@foo[1]");
$_ = @bar[0];
#s/\n(.*)<BR>/$1/g;
s/\s+(.*)\n/$1\n/g;
print $_;
