Help for this page

Select Code to Download

Select or download this

my $string = '---LL--C----LCSH-------CSHL-------LCSLH-------LCCHLSHCL-
+---';
while ($string =~ /[CSH][CSHL]+/g) {
    print "$&, ";
}