Help for this page

Select Code to Download

Select or download this

$ perl -E '
    my $str = "sssDDDsssDDDssUss";
...
'
sssDDDsssDDDssUss
iiiDDDiiiDDDiiUoo

Select or download this

$ perl -E '
    my $str = "sssDDDsssDDDssUss";
...
'
sssDDDsssDDDssUss
sssMMMsssMMMssMss