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