$_=<<ENDHERE;
"Avert thine eyes, lest ye be stricken with coolness." (from the origi
+nal batkins web site, dated April 8, 2002
 )<br><br>
 <a href="http://batkins.com/forum/YaBB.pl">Enter the batkins forum</a
+> - it's the place to be.
 <br><br>
 batkins.com is best viewed from the Hubble Telescope.
 <br><br>
 <hr>
 <font size="+1"><b><u>the batkins weblog - it's nature's candy</u></b
+></font>
 <br><br>
 <%
     # news
     my @news = split(/%%/, slurp("$DAT/news"));
     my $bit;
     my $i;
     for($i = 0; $i < 10; $i++)
     {
         $bit = "<b>$news[$i]</b><br>" . $news[$i + 1] . "<p>";
         print $bit;
         $i++;
     }

 %>
 <a href="/main/news.pl">View the rest of the weblog (<% print scalar(
+@news) - $i; %> more entries)</a>
 <p>
 <font face="-2"><a href="/main/all.pl">the batkins directory</a></fon
+t>
ENDHERE
s/'|(<%.*?%>)/$1||'test'/egs;
print;
[download]