#!/usr/local/bin/perl

while (<STDIN>) {
if (/^%/) {
$prev =~ /<BR>-- <A HREF=\"\/st-tng\/episodes\/([^"]*).*/;
open (FOO, ">>$1") ;
print FOO $current;
print FOO "<HR>\n";
close (FOO);
$current=" ";
} else {
$current .= $_;
}
$prev=$_;
}