Función Trim

[kidd]

Hola...asi es como lo haria

Código:

sub trim{

my $cadena = shift;

     $cadena =~ s/^\s*//g;  #Eliminar los espacios a la izquierda
     $cadena =~ s/\s*$//g;  #Eliminar los espacios a la derecha

return($cadena);

}