# File:	chop0.pl
#       Chop: removes the last character in a string
#		String is modified without last Char
# Author:	Mihaela Malita
#	 	Last Character is h
#		New value for S is mat
$S = "math";
print "Last Character is " , chop($S);  
print "\n New value for S is " , $S;