while (<>) {

    if (/<title>Green And Green - images_(.+?)<\/title>/sgi) {
	$subseries = $1
    }
    s/http\:\/\/www\.columbia\.edu\/cu\/libraries\/inside\/projects\/greene_and_greene\/index\.html/\.\.\/html\/index\.html/gi;
    s/<span class=\"headb3\"><br>(.+?)<\/span>/<span class=\"headb3\"><br><a href=\"\.\.\/html\/subs\/$subseries\.html\">$1<\/a><\/span>/sgi;
    print;
}