Chop function in action
#!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";