#!C:/perl/bin$word = 'Lengthy';print "Before chop = $word \n";$word2 = chop($word);print "Result of the chop function after chop = $word2 \n\n";print "Original string \$word after chop = $word \n";