##
## << while (($v,$vv) = each %ENV) { print "$v = $vv\n" } >>
## 
<< $ENV{PATH_INFO} =~ /(\w+)/ and $ENV{faq} = $faq = $f = $1; $faq =~ s/(\w)/uc($1)/e; $f = lc $f; print qq(

F*EX FAQ $faq

\n); print "

"; foreach (qw(Meta User Admin Misc)) { print '',$_,' '; } print "

\n"; $ENV{QUERY_STRING} =~ /(\d+)/ and $q = $1; my $n = 0; local $/ = "Q:"; local $_; open $faq,"$f.faq" or return; print "\n"; $_ = <$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++; if ($q) { if ($q == $n) { print "
\n"; print "\n"; } } else { print "\n"; print "\n"; print "\n"; } } print "
Q$n:$Q
A$n:$A
Q$n:$Q
A$n:$A
\n"; >>