my $foo = "bar bar";
$foo = $foo =~ s/\s//g;