Leva spazi da stringa

[Mich_]

In Perl?

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