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;