perl library to truncate or elide strings