$title

#!/usr/local/bin/perl $q = ''; $a = ''; %q = {}; $i = 'N'; while (<>) { chomp; next unless $_; if (/^([AQTHF])\.\s+(.*)$/) { $type = $1; $index{$type}++; $data = $2; } else { $data = $_; } $i = $index{$type} - 1; $q{$type}[$i] .= " $data"; } $title = join("\n", @{$q{'T'}}); $header = join("\n", @{$q{'H'}}); $footer = join("\n", @{$q{'F'}}); print < $title --> EOF if (length($header)) { print < EOF } print <

Frequently Asked Questions
$title

$header

EOF $count = $index{'Q'} > $index{'A'} ? $index{'Q'} : $index{'A'} ; for ($i = 0; $i < $count; $i++) { $q = $q{'Q'}[$i]; $a = $q{'A'}[$i]; print "" if $i; print < EOF } print < EOF if (length($footer)) { print < EOF } print < --> EOF


Q.	$q
A.	$a
$footer