<< 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 "\n"; print "\n"; print "\n"; } print "
Q$n:$Q
A$n:$A
\n"; close $faq; } >>