while (<PHILE>)
{
    chomp;
    my @werdz = split;
    analyze( scalar @werdz, @werdz );
}