sub zapwrap {
  my ($line, $next_line) = (@_);
  return undef unless $line =~ /^#(#+|=+)$/;
  my $c= quotemeta substr($1,0,1);
  return undef unless $next_line =~ /$c+/;
  return 1;
}