local $/ = "\n--------------------------------------------\n"
<>;
for (;;) {
   my $speaker = <>;
   last if !defined($speaker);
   chomp($speaker);

   my $speech = <>;
   chomp($speech);

   ...
}