no warnings "uninitialized";
    s/([ \n])\1+|\s/$1/g;