F*EX FAQ

<< 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(
Q$n:
\n); print qq(
$q
\n); print qq(

A$n:

\n); print qq(
$a
\n); } } >>
<>
<>
<>
<>
## << faq($ENV{QUERY_STRING}) >>