$s =~ s[^ ][]mg while  not $s =~ m[^[^ ]]mg;