my $startstring='(<table)';
my $keywords='((Beneficially\s*Owned)|(Beneficial\s*Owners)|(Security\s*Ownership)|(more\s*than\s*5\spercent)|(more\s*than\s*5\%)|(more\s*than\s*five\s*percent)|(All\s*Directors\s*and\s*Executive\s*Officers)|(Preferred\s*Stock))';
my $endstring='(\/table>)';

{
# this step removes the default end of line character (\n)
# so the the entire file can be read in at once.
local $/;
open (SLURP, "$direct$slash"."$file") or die "can't open $file: $!"; 
#read the contents into data
$data = <SLURP>;
}

@finds=$data=~m/$keywords\s*.{0,1500}\s*($startstring.*?$endstring)/gism;