[FoLUG] Another break in the wall #Perl

[simona bazzocchi]

Salve, ho un altro problemuccio con il perl.
  Vorrei sostituire gli spazi della mia stringa con il simbolo |.
  Solo che me lo fa solo per il primo carattere e non per gli altri.
  Perche'?
  Ho provato ad usare gli array e foreach e funziona, ma io vorrei usare le espressioni regolari. Ecco il codice.
   
  #!/usr/bin/perl -w
use strict;
  my $raw_seq = '1368494_at 1384973_at 1392736_at 1377246_at 1393978_at 1395388_at 1379568_at 1391104_at 1387620_a_at 1376976_at 1391505_x_at 1379747_at 1367733_at 1393669_at 1385270_s_at 1384180_at 1385686_at' ;
  $raw_seq =~ s/\s/|/;
print $raw_seq;
   
  grazie
  simona

 		
---------------------------------
Yahoo! Mail: gratis 1GB per i messaggi, antispam, antivirus, POP3