Do we have a mature, powerful Perl library to support text/string operation ? for example, if I need to trim a string, I need to write a function like below.

Then question is, do we have an existing API so that I can import and call it ? just like StringUtils.trim(s) in Apache Common Lang.

Thanks.

sub trim($) {
    my $string = shift;
    $string =~ s/^\s+//;
    $string =~ s/\s+$//;
    return $string;
}