@links = qw(http://www.ocf.berkeley.edu/~eek/mp3
http://www.ocf.berkeley.edu/~eek/awk
http://www.blackpitchpress.com/reports
http://www.blackpitchpress.com/homework);

@filler_links;

open(F,"bookmarks4.html") || die $!;
for(<F>) {
    push(@filler_links,$1) if m["(http.*?)\"];
}

#use Data::Dumper;
#print Dumper @filler_links;


sub fill {
    if ( (rand() > 0.5) && (scalar(@links) > 0) ) {
	return pop(@links);
    }
    return pop(@filler_links);
}


local $/;
$s = (<STDIN>);
$s =~ s[a href="(http.*?)"][sprintf('a href="%s"',fill())]ige;
print $s;