#!/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";