foreach (@array) {
    s{/(MSS.*?)/}
     { my $m=$1; $m=~s/ +([^*])/$1/g; $m}ge;
}