$string = "abc";
print chop $string;  # prints 'c'
print $string;       # prints 'ab'