use strict;
use warnings;

require Text::Extract::Word;
Text::Extract::Word->import( qw(get_all_text) );

my $InputFileReadable ='Fish.doc';
my $content = get_all_text($InputFileReadable);

#detecting structure
my ($header, $body)= split /(\a)\1+/, $content;
my $NrColumns = () = $header =~ /\a/g;
$NrColumns++;
print $NrColumns;

##</code><code>##

Agreement(BEL)ACAP(BEL)ACAP(BEL)Accord(BEL)(BEL)albatross(BEL)(BEL)(BEL)albatros(BEL)(BEL)alleged violation(BEL)(BEL)(BEL)infraction présumée(BEL)(BEL)allowable(BEL)(BEL)(BEL)admissible(BEL)(BEL)anchovy(BEL)(BEL)(BEL)anchois(BEL)(BEL)angler fish, burbot(BEL)(BEL)(BEL)lotte(BEL)(BEL)

##</code><code>##

Agreement(BEL)ACAP(BEL)ACAP(BEL)Accord(BEL)(BEL)
albatross(BEL)(BEL)(BEL)albatros(BEL)(BEL)
alleged violation(BEL)(BEL)(BEL)infraction présumée(BEL)(BEL)
allowable(BEL)(BEL)(BEL)admissible(BEL)(BEL)
anchovy(BEL)(BEL)(BEL)anchois(BEL)(BEL)
angler fish, burbot(BEL)(BEL)(BEL)lotte(BEL)(BEL)