Still more ways to do it:

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

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

If you are reading in any old file for display in an HTML page, you will want to do at least minimal escaping of special characters, too:

  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";
  }
[download]