my @bcfHeaders = (qr/Month\s*/,
                   qr/First\s*/,
                   qr/High\s*/,
                   qr/Low\s*/,
                   qr/Sett\s*/,
                   qr/Chg\s*/,
                   qr/Vol\s*/,
                   qr/BWAVE\*\s*/,
                   qr/Prev Vol\s*/,
                   qr/Open\s*Int\s*/);
  my $te = HTML::TableExtract->new( headers => \@bcfHeaders,
                                    keep_headers => 1 );