Help for this page
$ perl -E ' my $str = "sssDDDsssDDDssUss"; ... ' sssDDDsssDDDssUss iiiDDDiiiDDDiiUoo
$ perl -E ' my $str = "sssDDDsssDDDssUss"; ... ' sssDDDsssDDDssUss sssMMMsssMMMssMss