see perlman:perlfunc

# 1st argument given: string to process
# 2nd argument given: offset
# so here it means regardless of the true length the 
# last character in the string
substr ($new, -1);
[download]

Have a nice day
All decision is left to your taste