sub do_bondagefiles {
  my ($url, $html) = @_;

  $_ = $html;

  1 while (s@<!--.*?-->@ @gsi);  # lose comments

  s/[\r\n]+/ /gs;

  s@^.*?(<A HREF=\"[^\"]*article\.cgi)\b@$1@is ||
    error ("unable to trim head in $url");
  s@<[^<>]*\bblacktri\.gif\b.*$@@is ||
    error ("unable to trim tail in $url");

  s@(<A\b[^<>]*\bHREF\b)@\n\001\001\001\n$1@gi;

  my @sec1 = split (/\n\001\001\001\n/s);
  my @sec2 = ();
  foreach (@sec1) {
    next if (m/^\s*$/s);

    s@^\s*<A\b[^<>]*?\bHREF=\"([^<>\"]+)\"[^<>]*>\s*(.*?)\s*</A>\s*@@is ||
      error ("unparsable entry (url) in $url");
    my $eurl  = $1;
    my $title = $2;
    my $date  = '';
    my $body  = $_;

    $body =~ s@<[^<>]*>@@g;  # lose tags in body

    push @sec2, ($eurl, $date, $title, $body);
  }

  return @sec2;
}