#!/usr/bin/perl
#
#
use strict;
use warnings;

my $directory = "/path/to/html/files/";
my ($line, $base, $file, $description);

undef $/;
opendir ( DIR, $directory ) or die "Can't open $directory $!";
while ( my $base = readdir( DIR ) ) {
     if ( $base =~ /.htm/ ) {
          $file = $directory . $base;
          open ( FILE, $file ) or die "Can't open $file $!";
          my $whole_file = <FILE>;
          if ( $whole_file =~ /.+?Title:.*?<\/b>*(.*?)<br>*\s*<br>\s*(.+?)</si ) {
               $description = $2;
               $description =~ s/\s{2,}/ /s; # I tried many varaitions of this to no avail
               $description =~ s/&nbsp;/ /s;
               $description =~ s/<.+?>/ /s;
               print "$description\n\n";
          }
     }
}