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

##</code><code>##

##############################################################################################

# or ...

#=============================================================================================