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

##</code><code>##

$work =~ s/\s{2,}$/ /; # at least twice