$work =~ s/\s+$/ /; # more than once