<<
sub faq {
my $faq = shift;
my ($var,$env,$q,$a);
my $n = 0;
local $/ = "Q:";
local $_;
open $faq,"$faq.faq" or return;
$_ = <$faq>;
while (<$faq>) {
chomp;
while (/\$([\w_]+)\$/) {
$var = $1;
$env = $ENV{$var} || '';
#s/\$$var\$/$env<\/tt>/g;
s/\$$var\$/$env/g;
};
($q,$a) = split /A:s*/;
$a =~ s/([^>\n])\n/$1
\n/g;
$a =~ s/([^\s<>]+\@[^\s<>]+)/<$1><\/a>/g;
$a =~ s/(https?:[^\s<>]+)/[$1]<\/a>/g;
$n++;
print qq(\n);
print qq(\n);
}
}
>>
<>
<>
<>
<>
## << faq($ENV{QUERY_STRING}) >>