Función Trim

[sanchezl]

Hola a todos. Quisiera saber si existe en PERL una función equivalente al trim de PHP. La función trim de PHP toma una cadena y elimina todos sus espacios en blanco a izquierda y derecha.

Gracias a todos por vuestra ayuda.


-------------------------------------------------------------------
Por si ha alguien le interesa o le pueda servir:

sub trim{
$cadena = $_[0];
$cadena =~ s/^( )+//g;
$cadena =~ s/( )+$//g;
return ($cadena);
}

Un saludo.