=************************************** = Name: Word Count in Perl = Description:Here is a very simple program that I wrote using PERL as my programming language that will ask the user to give a sentence and then our program will count the number of words in the given sentence by the user. Add me at Facebook my address is jakerpomperada@gmail.com and jakerpomperada@yahoo.com. My mobile number here in the Philippines is 09173084360. = By: Jake R. Pomperada = = = Inputs:None = = Returns:None = =Assumes:None = =Side Effects:None =************************************** #!D:\xampp\perl\bin $wordcount = 0; print "\n"; print "Word Count in PERL"; print "\n\n"; print "Enter a sentence : "; $sentence = <>; chop ($sentence); @array = split(/ /,$sentence); $wordcount += @array; print "\n"; print "Total number of words in the sentence is $wordcount."; print "\n\n"; print "End of Program"; print "\n";