$string =~s/\s{3,}//g

Reicht schon denke ich, weil niemand mehr als 3 Leerzeichen macht,
und wenn doch, hatter Pech, weil es wirklich keinen typographischen
und logischen sinn gibt, mehr als 1 Leerzeichen zu setzen :)