Select Code to Download

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

######################################################################
+########################

# or ...

#=====================================================================
+========================