my @ARSE = (map{[split//,$_]}split"[SCV]",join"",sort
{($_%=3)-1}map{$_^"\a"}split/\s*/,join"",<DATA>);push
@ARSE,["\n"];for my $ARSE (@ARSE) {ARSE($ARSE)};print
(map{join"",@$_}

@ARSE)# .                                ___.,
;sub#    =-,                       _,=$^%$*=$!;;
ARSE(\@ ){my($                   arse)=( @_); my(%
ARSe         ,$                ARSe            ,$
ARse          );    for my$   ARSE           (@{$
arse          })  {(exists$  ARSe             {$
ARSE         })     ||do{$   ARSe             {$
ARSE       }=$               ARse          ;if($
ARSe      !=$                 ARse          ){$
arse   ->[$                    ARSe        ]=$
ARSE;}++$                        ARSe   };++$
ARse}$#{$                         arse    }=$
ARSe-1;}                            #ARSE!!!
__DATA__
h           h                i             F'
s           t                M            r
t           r                M           r
 M          M               M           s
  W         'u              b           u
   s          o            b           b
    s         o           o           s
   s           T         o             d
 'O             f        u             k
  O'ubkububDl++u          +buubbuu+bubQ