my $string = '---LL--C----LCSH-------CSHL-------LCSLH-------LCCHLSHCL----';
foreach (split /L*-+L*/, $string) {
        print $_,"\n" if length($_)>2;
}