#!/usr/local/bin/perl
while(<>) {
        s/<a href="http:\/\/www.gospelcom.net\/cgi-bin\/bible\?[^"]+">([^<]+)<\/a>/$1/g;
        print $_;
}