http://www.perlmonks.org?node_id=197071


in reply to Make things a *little* easier
in thread a farewell to chop

Copy all except the last vs remove the last; the latter could be much more efficient for a large string.
substr ($str, -1, 1, '');
is what I was thinking.