#!/lang/perl -n
BEGIN { print "\n"; }
END { print "\n"; }
chomp;
if (/^CHAPTER /) {
# chapter heading
$heading = 2;
}
if (/./) {
if ($heading) {
s,(.*),$1,;
$heading--;
}
if (s,^\((.*)\)$,
$1
,) { # direction
}
elsif (s#^(.+?:) #$1 #) { # speaking line
# $_.="
";
s,: \((.*?)\),: $1,; # direction within speaking line
}
}
print "$_
\n";