Try this,
$string =~ s/( )+/ /g;