my $count = reduce { $a + $b =~ /the/ } 0, <FILE>;