libstring-elide-parts-perl