#!/usr/bin/perl
use warnings;
use strict;
my @words = split ('\s+', <>);
my $count = scalar (@words);
print "There ";
if ($count == 1) {
print "is";
} else {
print "are";
}
print " $count word";
unless ($count == 1) {
print "s";
}
print " in the text \n";