Select Code to Download

use strict;
use vars qw(@open_tags %handlers %bal_tag_attribs);
use HTML::Entities qw(encode_entities);
use Carp;

# This covers the majority of rules
%bal_tag_attribs = (
...
  # And our escape mode.
  '[code]' => ret_escape_code(qr(\[/code\]), "[code]"),
);

sub ret_const_tag_open {
  my $tag = shift;
...
  my $err = join '', @_;
  return "<h2><font color=red>$err</font></h2> ";
}

=head1 B<scrub_input()>
...
  }
  confess("I have no idea how I got here!");
}