Of course :). BTW, your solution does not catch multiple 'and's in one line (you just count the number of lines 'and' occurs in at least once). The best of both our worlds would be:

#!/usr/bin/perl -w
use strict;
my $count = 0;
$count += () = /\band\b/ig while <>;
print "$count\n";
[download]

but you were probably aware of this :-)

CU
Robartes-