Eliminar espacios en blanco en perl

Perl nos ofrece muchas facilidades a ala hora de trabajar con cadenas de texto, como por ejemplo hacer un split de una cadena y almacenar los valores en un array.
El problema viene cuando , por ejemplo, consideramos una coma (,) como carácter de corte y hay muchos espacios delante y detrás, los cuales no nos interesan. Entonces… ¿cómo eliminamos esos espacios en blanco?


Pues muy sencillo. Con la siguiente expresión regular:

$_ =~ s/\s//g;

Vamos a ver un ejemplo sencillo:

my $string= "hola, caracola   ,    esto es una cadena       larga "; 

my @array= split(/,/, $string); 

foreach(@array) 
{ 
   $_ =~ s/\s//g; #Elimina espacios en blanco
   print $_; 

   print “\n”;
}

La salida obtenida es:

hola
caracola
estoesunacadenalarga