11 lines
217 B
Perl
11 lines
217 B
Perl
#!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";
|