# list processing
  print map "$_<br />", <AP_MENU>;

  # more abuse of special variables
  {
      local $, = "<br />";
      print <AP_MENU>, '';
  }

##</code><code>##

  while ( <AP_MENU> )
  {
      # protect against most egregious HTML violations
      s/&/&amp;/g; s/</&lt;/g; s/>/&gt;/g;

      # remove trailing whitespace so the <br /> is on
      # the same line as main text
      s/\s+$//;

      print "$_<br />\n";
  }