for (@array) {
    while (m(/MSS)g) { s{\G([^/]*?) +(?![* ])}{$1}g }
}