- or download this
use strict;
use warnings;
...
my $NrColumns = () = $header =~ /\a/g;
$NrColumns++;
print $NrColumns;
- or download this
Agreement(BEL)ACAP(BEL)ACAP(BEL)Accord(BEL)(BEL)albatross(BEL)(BEL)(BE
+L)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)
- or download this
Agreement(BEL)ACAP(BEL)ACAP(BEL)Accord(BEL)(BEL)
albatross(BEL)(BEL)(BEL)albatros(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)