<< my ($n,$f); local $/ = "Q:"; local $_; print qq(
F*EX
FAQ
All
\n); foreach $faq (qw(meta user admin misc)) { $n = 0; open $faq,"$faq.faq" or return; $f = $faq; $f =~ s/(.)/uc $1/e; print "
$f\n"; print "
\n"; $_ = <$faq>; while (<$faq>) { chomp; while (/\$([\w_]+)\$/) { $var = $1; $env = $ENV{$var} || ''; s/\$$var\$/$env/g; }; ($Q,$A) = split /A:s*/; $A =~ s/([^>\n\\])\n/$1
\n/g; $A =~ s/\\\n/\n/g; $A =~ s/<([^\s<>\@]+\@[\w.-]+)>/
<$1><\/a>/g; $A =~ s: (/\w[\S]+/[\S]+):
$1
:g; $A =~ s/(https?:[^\s<>]+)/
[$1]<\/a>/g; $n++; print "
Q$n:
$Q
\n"; print "
A$n:
$A
\n"; print "
\n"; } print "
\n"; close $faq; } >>