/dev-perl/String-Truncate/