$s =~ s[^ +][]mg;