use strict;
use warnings;
use File::Slurp qw/read_file/;

my $text = read_file 'a5927574.txt';

my ($businessItemText) =
  $text =~ /(ITEM [\dA-Z]+?[: -]+BUSINESS.+?)ITEM [\dA-Z]+?[: -]+/s;

print $businessItemText;

##</code><code>##

ITEM I: BUSINESS
----------------

Littlefield  Corporation develops, owns and operates charitable bingo halls, and
owns and operates an event rental company.  In our  Entertainment  division,  we
operate 37 charitable bingo halls in Texas, Alabama, Florida and South Carolina.
...
are with Littlefield  Hospitality and twelve (12) are at corporate  headquarters
in Austin, Texas.  Littlefield  Entertainment consists of sixteen (16) full time
employees  and  nineteen  (19)  part  time  employees.  Littlefield  Hospitality
consists of thirty-two (32) full time employees and one part time employee.