Building Home Page...
Warning: Use of "shift" without parentheses is ambiguous at (eval 141) line 2.
Warning: Use of "shift" without parentheses is ambiguous at (eval 242) line 2.
Warning: Use of "shift" without parentheses is ambiguous at (eval 344) line 2.
Warning: Use of "shift" without parentheses is ambiguous at (eval 446) line 2.
Warning: Use of "shift" without parentheses is ambiguous at (eval 548) line 2.
Warning: Use of "shift" without parentheses is ambiguous at (eval 650) line 2.

sub {
return scalar(split /\s+/, shift . \' \' . shift);
}

sub {
if (length($_[0] < 1) { return 0; }
my @tmp = split / /, $_[0];
return $#tmp + 1;
}

sub {
my $count = 0;
for (@_) {
my @words = split /\b/;
$count += scalar @words;
}
return $count;
}