note
I0
<code>$_=<<ENDHERE;
"Avert thine eyes, lest ye be stricken with coolness." (from the original 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></font>
ENDHERE
s/'|(<%.*?%>)/$1||'test'/egs;
print;
</code>
228096
228096